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ABSTRACT 


This atudy provides the needed cost/benefit 
analysis, utilizing a atandard ayatems analysis, to 
update the tracking of the Quality Deficiency 
Reporting System at the Navy’s Fleet Material Support 
Office, Mechanicsburg, Pennsylvania. 

Thia Thesis analyzes the present system, proposes 
an alternative manual process, establishes an interirn 
Management Information System, and an analysis and 
proposal for an automated syster using the concept of 


a local area network. 
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I. INTRODUCTION 


With the increased emphasis within DoD and 
government agencies on cutting operating costs and 
improving operational efficiency, systems managers 
must start evaluating office automation options. The 
improvement in productivity isa becoming critical for 
today’s managers. 

In this context, the small office environment 
becomes a prime consideration for office automation. 
These small offices typically represent a small 
fraction of the total organizational assets in terms 
of material and personnel, but they can represent a 
major problem in terms of organizational efficiency 
and effectiveness if left to fend for themselves too 
long. 

Compounding this problem of data processing is 
the general inability of the small office to obtain 
the resources needed to automate their work. Often, 
the managers of these offices abandon efforts to 
improve efficiency and effectiveness. This 
abandonment is largely due Lo the manager’s 
preception that the organizational goals are much 


larger than their small office and that competition 








for organizational resources is therefore hopeless in 
view of the larger divisional needs. It is at this 
point that the manager has placed him/her self into a 


no win situation. 


TI. PURPOSE OF THE STUDY 


It is the purpose of this study to determine the 
viability of a full office automation system using 
standard systems analysis design techniques. This 
study will provide an analysis that will demonstrate 
in terms of cost/benefits and improved efficiency 
that automation or some other alternative is the most 
beneficial evolution in obtaining the productivity 


increases required. 
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TIil. METHODOLOGY 


This atudy used standard systems analysis and 
evaluation for developing a flexible system to 
process and monitor the Navy’s Quality Deficiency 
Reports (QDR) through Fleet Material Support Office 
(FMSO), Mechanicsburg, Pennsylvania. The methodology 


of this work was accomplished in four phases. 


A. INITIAL ANALYSIS 

The information processing requirements of the 
office were analyzed along with the office’s 
capabilities to process these requirements 
efficiently and effectively. This analysis was 
accomplished primarily through personal interviews 
with the personnel assigned to the Defective Material 
Section (Code 91423). During these interviews 
attitudes, beliefs, perceptions, aotivations, morale, 
and job-satiafaction levels were surveyed as well as 
technical details about the actual flow of work. 
Additional interviews were conducted with individuals 
outside the office’s direct chain as well to add 
breadth to the study. Among these were Item Managers 
and Fleet Activities. Samples of all forms used in 


the process were gathered and reviewed. 
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3. SELECTION OF A FEASIBLE APPROACH 

A literature search was undertaken to determine 
the best approach to the analysis and to determine 
possible alternatives to the present aystem. The 
search examined recent trends in office automation, 
specialized application progragring, software 
packages, and commonly used hardware systems. The 
results of this research were integrated with the 
previously-determined needs of the office to provide 


a basis for the beat approach to asaolving ita needs. 


C. ALTERNATE PROCESSES 

Before determining that a fully-automated process 
was the answer to the long range productivity goals, 
several alternate processes had to be developed, 
teated in theory or actual application, and judged as 


to their suitability. 


D. EVALUATION CF AN APPROPRIATE SOFTWARE AND 
HARDWARE FACKAGE 
The Command had not remade any commitment to any 
particular system. A survey of software packages and 
hardware systems available was made. Each package 
and system was evaluated on its ability to handle 
eatablished requirerents and offer maximum 


flexibility to the ueer. 
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IV. SCOPE OF THE STUDY 


This atudy analyzed the present manual system to 
determine its requirements, identified areas where 
nodificationsa could be made to improve short-tera 
productivity, evaluated alternatives available for 
the improvement of long-run productivity, and 
recommends a systems design that will meet future 


requirements. 


A. RESEARCH QUESTIONS 

1. What ashort- and long-run productivity gains 
can be realized by a modification of present aethods? 

2. Can the automation of the tracking system now 
in use on the Quality Deficiency Reports lead to a 
better, more reliable system? 

Sis Will the systems analysis substantiate a 
fully-autormated systen? 

4. Will it ehow that an alternative process 
should be used? 

Se What problems need to be considered in the 


design of a general office automation systen? 
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B. SUMMARY OF FINDINGS 

The analysis of the Quality Deficiency Report 
syster revealed bottlenecks in both proceasing 
procedures and amanagement’ style. Workload figures 
over the past four years plus the first four aonths 
of the present calendar year show an overall increase 
of 151% in the case load. There existed a large 
backlog that was over age (as defined by the 
governing instructions), representing hundreds of 
thousands of dollars in possible cash flow back to 
the Navy Stock Fund (NSF). 

On site observations also revealed considerable 


resistance to any change in the method of handling 


the QDR. A number of conditions existed that 
reinforced this resistance and were felt to 
contribute equally to the frustrations being 


experienced by the analysts and managers of the QDR 
process. 

A cost/benefit analysis showed that the cost of 
automating the process, as opposed to hiring amore 
personnel and continuing the present system, would 
realize an initial pay back in approxiaately four 


nonths. 
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V. BACKGROUND 


A. GUALITY DEFICIENCY REPORTING SYSTEM OVERVIEN 

Navy Supply Inetruction (NAVSUPINST) 4440.120E 
designates Fleet Material Support Office (FMSO) as 
the overall monitor for the quality deficiency 
management information reporting system. Within this 
framework, FMSO has the responsibility of: 1) 
notifying appropriate Navy activities of QDR 
material; 2) coordinating, recording and monitoring 
actions of managers; 3) ascertaining locations and 
quantity of QDR amaterial at Navy facilities and 4) 
ensuring that timely disposition instructions are 
forwarded to Navy activities. The Command does not 
monitor QDR’s in the area of subsistence, aviation, 
anmunition and certain medical, nuclear and systenas 
coamand itens. Figure 1 is the organizational chart 
for FMSO. QDR’s are handled by the Technical Branch 
(code 9142) within the Coaptroller Departament (code 
S273 Figure 2 isa the organizational chart of the 
Comptroller Departaent. Within the Technical Branch, 
code 91423 (Defective Material Section) is 
responsible for the actual processing of all QDR’s. 

There are two categories of QDR’s: 1) category 


I, used to identify life threatening/highly hazardous 
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Situations that must be processed within 24 hours of 
receipt and 2) category II, uaed to identify routine 
gituations of a non-hazardous nature which aust be 
processed by FMSO within ten days. 

After processing the ODR through FMSO, the report 
is sent to the Item Manager (i.e. Defense Logistics 
Agency, Ship Parts Control Center, etc.) for a foraal 
investigation into the nature of the problera (i.e. 
bad specifications, substandard aaterial, etc.). 
When this investigative process between the 
government and the contractor haa been completed, a 
deterrnination is made as to whether the contractor 
will or will not reiaburse the government. The Iten 
Manager then issues dispoaition instructions back to 
FMSO. Upon receipt of these disposition 
inatructions, FMSO reissues these these instructions 
to all cornaands affected. If credit to the 
government is indicated, it is then posted to the 


ease file and the case is ciosed out. 


B. THE ORIGINAL SYSTEM 

Under the present aystem, daily nail and rneasasages 
are picked up by the branch secretary. The traffic 
is then sorted and routed to the various sections. 
Quality Deficiency Reports ‘QDR’s) and Reports of 


Discrepancy (ROD’s> are routed to the Defective 


iy) 





Material Section, code 91423. QDR’a are identified 
as Category I or Category II. Category I’s are sent 
to the supervisor and Category II’s are sent to a 
Supply System Clerk (SSC). 

Figures 3, 4, and 5S show the overall flow of 
Category II’s. The SSC determine the nature; e.g. 
Screening Receipt, New Case, or Existing Case. If 
the form i8 a Screening Receipt (Figure 3) (an 
acknowledgement by the Item Manager of receipt of a 
case now in work), it is placed in the case folder 
and filed, with no further action taken. 

If the form is an action on an existing case 
(Figure 4), the case folder is pulled fron the files 
and sent to the Supply System Analyst (SSA) 
responsible for that Cognizance Group (COG). The SSA 
deternines if it is a request for additional 
information from the Item Manager, Final Disposition 
Instructions on the case or a Tracer Action initiated 
by the origiator of the QDR. If it is a requeat for 
additional information, the SSA attempts to answer 
the request either from existing information or by 
going beck to the originator. The SSA then drafts a 
reply back to the Item Manager and sends it out. The 
case file isa updated and refilled. For Diapostion 
Inatructionss;: the SSA determinea what has been 


directed to be done, drafts a nessage to all effected 
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activities and releases it. If the Disposition 
Instructions indicate that the government is to 
receive credit, it is posted on the Case Report. The 
case is then sent to a SSC who enters the pertinent 
close out data in the current computer database and 
the case is then on file for three calendar years. 
For Tracer Actions, the SSA simply determines if a 
case is in existence and senda a reply back to the 
originator. 

If the case is determined to be new or is a 
Report of Deficiency (ROD), the SSC sends the 
paperwork to an SSA for initial screening and review 
(Figure 5). This particular job is rotated on a 
monthly basis between all SSA’s. If the case is an 
ROD, a form letter (OPNAV 5216/1558) is attached as a 
cover and mailed to the shipping activity for action. 
No other actions are required of FMSO. 

For a new case, the SSA screens the QDR for such 
things as Category II’sa that should be Category I[’s 
etc. The case is then passed to a SSC who verifies 
all data againat the aost current publications, 
researches the National Item Identification Number 
(NIIN) against a 3 x 5 card for previous QDR’s enters 
pertinent new case data to the computer database, and 
then sends the case to the SSA handling that 


particular COG. The SSA screens the QDR, verifies 
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any information that may still remain in question, 
nakes out copies of FMSO form 4440/12A, gets 
additional copies of the original QDR made out, senda 
a copy to the SSC for filing and has the original 
mailed to the Item Manager with a copy mailed back to 
the originator as a receipt. 

Category I QDR’s (Figure 6), are routed to the 
second Line Supervisor who personally screens then 
and decides which SSA should handle it. The SSA 
(Figure 7) then does the coruplete process of 
acreening, verifying, assigning &@ case nurber, 
initiating/updating a local 3 x 3 control card, 
researching the item in question and drafting a new 
message to the Iten Manager and the Originating 
Activity. The message then goew to the second Line 
Supervisor for review and back to the SSA for any 
corrections. Once approved, the araessage is signed 
and released by the supervisor. 

Tracer actions, requests for additional 
information, screening receipts, and final 
disposition insatructions are all handled in the same 
manner as for Category II QDR’s except they all go 
through the second Line Supervisor. | 

At present, FMSO is using a General Electric (GE) 
time-sharing service. This service, based in Ohio, 


is accessed from the office by a single, 300 baud, 
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Western Union teletypewriter. Figures 8 and 93 are 
the systera diagrams from the manual. Figure 8 shows 
the logical flow of QDR data from the originating 
activity to FMSO and then into the GE databaae. 
Figure 9 is a logical representation for the updating 
procesa of the database itself and the generation of 
requested reports. After receipt of a report 
request, the systema holds the request in a queue 
until off-peak hours for processing. The reports are 
then mailed to the customer. Receipt of requested 
reporta is generally within three to four working 
days of request. 

This saystem is several years old. It now suffers 
both from a functional ability to keep pace with the 
present requireruents of the office and from 
inefficient physical design. The work station in the 
office requires the operator to lean over and peer 
down behind a ribbon in order to read messages frora 
the syster. The system requires several ninutes to 
respond to a request, anaking it time-consuming and 
costly. It hag no online inquiry capabilities. 

When the system goes down, there is no accurate 
process by which to determine what or how much data 
is affected. The Defective Material Section receives 
notification of system failures with possible data 


that may have been lost. This is the only 
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information available to the customer. This means 
that the office has to reenter all data from the days 
in question with no knowledge as to whether they were 
actually lost or not. The sayatea will error trap 
duplicate enties of cases by case number; but in the 
mean time, it ia not Known how much work is actually 
wasted due to duplication. Furtheraore, there is no 
positive way of knowing how much other work was loat. 
For these reasons information from the present systen 
is suspect. 

The asysterma is currently accessed by a 1200 baud 
work atation located in another office which allows 
the viewing of information directly on a CRT. This 
overcomes the problem of transmission. speed. At 
present the systea belongs to another branch and can 
only be used when that branch is not using it. 

Last year the office had a budget of $17,000 for 
the operation of the GE systen. This year, the 
office had spent a total of 318,000 as of April 30th. 
Next year’s funding request ask for ae total of 
350,000 in order to keep pace with the growing work 


load. 


Ce ANALYSIS OF THE ORIGINAL SYSTEM 
Several areas were noted as bottlenecks in the 


general flow in the present systen. Follow-up 
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analysis revealed a combination of overly-restrictive 
nanagement constraints, limited number of processing 
materials <(NIIN microfichea, card decks with previous 
history filed, atc,.) and individuals over-worked as 
a result of current vacancies in the staffing of the 
section. 

Dotted lines in Figures 10, 11, 12, 13, and 14 
show the areas that were identified for follow-up 
analysis. In each case, a bottleneck in the process 
occurs that resulta in the addition of froma one to 
four days being added to the in-house turnaround tine 
for Category II QDR’s. The Category I QDR’s were 
being handled within the instruction guidelines; 
though inefficiently. These were all physical 
constraints that were eventually corrected by a new 
QDR flow and rearrangement of management oversight. 

Intangible problems included perceptions as to 
what was happening in the immediate environment. 
Morale within the aeantire Defective Material Section 
was found to be low, attributable to three factors: 
misperceptions as to what was happening with the 
vacancies in the first Line Supervisor and the third 
Line Branch Manager’s (a Military Personnel Billet) 
job and the perceived notion of working in a job that 
had little or no prospects for advancement. The 


first Line Supervisor’s job was being handled by the 
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second Line Supervisor who oversees two additional 
offices and the third Line Branch Manager’s billet 
was being teaporarily filled by a GS-12 from another 
Branch within the division, creating a less than 
Optimal situation. 

Largely, the Supply System Analyst comes to the 
job as a GS-9 with promotion opportunity available to 
only one GS-il first Line Supervisory job within the 
section. Though lateral moves are possible, the 
personnel within the Defective Material Section view 
this as a difficult process. 

Backlog is steadily increasing ‘(see Table 1, page 
SZ). The number of cases arriving daily are more 
than can be processed in the day; an average of 39 
new cases arrive each day as opposed to 15 per day in 
1979, an increased of 160%. Analysis of the case 
input flow revealed no predictable trends of totals 
within a given COG type. This lack of 
predicatability nakes the scheduling of work 
disorganized. On a daily basis, the volume of QDR’s 
ranges from noe to 170 new cases. 

The manner in which cases were allocated created 
case load imbalances leaving aome analysts under 
utilized and others over burdened. Some QDR’s are 
Simply a process of quick verification and routing to 


the Item Manager for action while others may require 
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technical research or phone contract with the 
originator. Time zone differences, ship-at-sea 
communications, ete. , further delay the process. In 
addition to new cases, there are inquiries and tracer 
actions on outstanding cases that must be researched 
and sent out by the analyst who originally handled 
the case. Disposition instructions on outstanding 
cases arrive from the various Item Managers directing 
actions that may involve time frames established by 
legal actions. 

Additional problems are caused by the method by 
which cases are handled when they arrive in the 
office. All cases are initially screened for 
correctness by one SSA and then sent to an SSC for 
more screening and verification. This creates a 
bottleneck in the flow at two consecutive locations. 
Finally, the QDR is distributed to the analysts 
according to COG. With the randomness of daily case 
load arrivals, this approach creates a very 
Substantial imbalance of case loads. Once the case 
is processed by the analyst, an additional bottleneck 
ig created: all cases are passed to the branch 
secretary to address and mail out. 

Analysis of the current computer timne-share 
system shows it to be inadequate for the office needs 


and should be either upgraded or replaced altogether. 
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With the case load continuing to increase 
year-to-year (see Table 1, page 52) the present 
system will continue to become more of a major cost 
and bottleneck in the processing of QDR’s. 

Thus, with the misperceptions of what was 
eccurring with the current staff vacancies, the 
intervention of a Second Line Manager into the daily 
routine, and the increased work load, coupled with 
decreasing morale all added up to a situation that 
steadily grew worse. Add to this situation the 
manager’s perception that the office is less than 1% 
of the organizational labor force and considerably 
less than 1x of the dollar assets and capital 
investment. Therefore, their problems are not of 
conmand level aignificance and no one really cares. 
The resulting combination of circumstances can 


quickly lead to a crisis. 


D. MODIFICATION OF THE EXISTING SYSTEM 

The areas outlined in Figures 10, 11, 12, 13, and 
14 are the areas that were given detailed analysis. 
The results of these analyses were the foundation of 
the preliminary design of a fully automated systen. 


Five major criteria were used: 
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1. How would an office automation aystem affect 
this flow process? 

2. How much of that affect could be continued 
under a manual flow? 

3. How much of an iampact will a given change 
have in terms of human behaviorial patterns? 

4. What would have to be done in terms of 
training and commitment of office personnel in order 
to enaure the new syster’s succesa? 

Se What impact would this change have on 
enployee/rnanagement acorale? 

This approach was used to evaluate alternative 
methods to a full office automation. The above 
allows prediction of productivity, thereby 
faciliatating projections of future capacity. The 
reaulting flow process will produce a new system that 
will even the work load among the Supply Systea 
Analysts, allow easy identification of backlog, 
increase output, a rearrangerent of araanagement 
oversight procedures and a dramatic decrease in 
immediate backlog. 

For Category II’s, the process (Figure 15) waa 
completely overhauled. Screening receipts are atill 
filed away in the case folders as before. However, 


new cases and ROD’s are placed in folders and the 
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entire batch received that day are placed at the 
bottom of a backlog pile (Figure 16). This allows 
nanagerent and office personnel an inmediate 
knowledge of real existing backlog and reduncancy in 
the system is elininated. When an SSA then does all 
necessary screening, validating and research, assigns 
the case nurber, rakes all copies needed, prepares 
the cover letters and cases for mailing. The file 
copy is given to the SSC for filing and the secretary 
picks up the envelopes for mailing. 

This approach essentially changes the type 
queuing aystern in which the QDR’s were placed. 
Before, the rmethod assigned a QDR to a given SSA 
regardless of the SSA’s backlog. Now the QDR waits 
in a single queue for the next available SSA. This 
process evens the workloads, reduces the average 
waiting time for processing, and eliminates the 
bottlenecks by having fewer people work on the total 
flow of a case versus several people trying to handle 
an aspect of every case. 

When disposition instructions, tracer actions and 
requests for additional information are received 
(Figure 17), the SSC pulls the case and identifies 
the SSA working on that case by the addition of an 


SSA code attached to the case number. The case isa 
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then placed in the SSA’s incoming box for handling as 
before. 

Category I QDR’s and the limited number of 
nuclear material QDR’s are handled differently. The 
second Line Supervisor is given a copy for management 
oversight only. All Category I’s and ’X’ COG Nuclear 
QDR’s are now sent straight to one SSA who handles 
all the cases. Figure 18 shows this new flow. In 
this way, the other SSA’s are never interrupted Dy an 
unexpected emergency case. If the SSA handling the 
Category I1’s and Nuclear cases finds hia/her self 
caught up, s/he can help out with the Category II 
case load. 

The implementation of this new process allowed a 
couple of things to be accoaplished: 1> a 
significant reduction in the time to process a case 
was inmediately realized as evidenced by the 
reduction of the backlog; 2) an alternative process 
to full automation was applied and evaluated; and 3) 
the process was moved closer to full automation. 

In addition to these changes, a simple database 
consisting of a ten field record was added to the 
system. This system was added on the basis that it 
would not create an additional conversion probler 
later, would be easily aaintained, not require an 


undue amount of labor time to keep up and would 


46 





Qua: fty Oeffcfency Fiow Ofagram 


ok 
' 


(ork 


- New Flow Process (Category [) 


eS 
‘ i 
} 


a 







Tnere 


System 


Oniy One Supely 


Who Handles 





‘sg Now 





Analyst 








or 
| 
{ 
Copy of QOR to 
aa a ad oe 
tne QDR y ve 
ic isac €5 Cent.) 
RE lated? 


No 


ew of 





New Case 


xfsting 





| 


eExfstf Case 







De 
Acton 






Addftfona! 
Inforwatfon Ofspogftfon 
Requpst Instrectfons 






Ofsodositfon 
Instruct{fons 
Implemented 


Case {s 
Researched 










Messe 1s Case Posted 
Orafted WIth or Without 
Creaft to Navy 

Stock Fund 
Message fs Case Closed Out 
Sfgned sng and Mafntafned 


on Ffie for 3 
Years 


Released by 
Suooly System 


Process 
Terminates 
No Furtner 

Action 





Item 


= Manager 






SupD!y System 
Analyst 





Supply System 
Clerk updates 







Database Researches and 
verfffes Data 
Supply System 
Tracer Analyst Updates 
Action Local Recoros 







Case fs 
Researched 












@s 
ted 










Messa 
Ora 






Message !s 
Orsfted 





Messaqce {s 
Sfqnedg and 
Releesed by 
Supply System 
eA a 









Message ‘3s 

Sfgned and 

Refeased by 

Supply System 
Anal 






Orfgfnating 
Activity 


Figure 18 


47 





provide management with a means of acquiring data 
about the cases being processed without disrupting 
work flow. 

This database was established on an IBM Personal 
Conuputer using dBase II. The reasons for this 
selection were: 1> the hardware and software had 
already been evaluated; 2) it waa able to meet the 
processing requirements of the office; 3) both 
sysatens were easily obtained without further expense 
to the project; 4) it allowed for both initial 
training of office personnel and command programmers; 
and 3) it allowed for the initial evaluation of an 
office automation aystem in a practical application 
without creating follow-on probleas or total 
commitaent to full automation. 

The database was created to allow tracking: of: 
1> average awaiting time a case experiences before 
being processed; 2) average processing tiae; 3) 
average turnaround time; 4) average response time of 
the Item Manager on cases (either overall or by 
specific Item Manager); 5) average turn around tiae 
required to process . final disposition inatructions; 
6) average case load by analyst; 7) total number of 
cases in the system; 8) total number of Category I 
and Category II casea; 3) total nuaber of cases in 


the office; 10) total nunber of cases awaiting Iten 
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Manager response by Item Manager or composite total; 
11> total number of cases in final disposition: 12) 
total number cases closed out to date: and 13) case 
load breakdown by COG and Item Manager. Figure 19 is 
a liating of the database atructure and a sample 
printout of the records in the database. Appendix A 
is a complete listing of the application prograna 
developed using dBase II to manipulate the database 
and generate the r,ranagement reports. Appendix B is 
the necessary data definitions used in the 
application prograan. 

The database and application prograras were 
developed as a means of evaluating the training 
requirements that would have to be considered in any 
decision to automate the office. Appendix A does 
not represent the final version of the application 
program used to drive this interim database. Rather, 
it was only a firat cut at developing application 
programs using dBase II. 

No modifications to the existing tine share 
system were attempted when it was learned from the 
system programmers that to rake one a,inor change 
would require approxinately 80 aan hours. The 
current asaysten is atill in operation pending final 
decisions concerning changes to the overall data flow 


within the office. 
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LISTING OF DATABASE STRUCTURE AND SAMPLE RECORDS 


Structure for file: 


Number of records: 


Date of last update: 
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Vi. PROPOSED AUTOMATED SYSTEM 


A. THE DECISION TO AUTOMATE THE SYSTEM 

While the changes from the old flow process to a 
more streamlined process achieved the desired 
short-run effects of reducing the iamediatae backlog, 
streamlining the process and improving productivity, 
there still existed areas where the manual process 
involved could not be improved beyond a certain 
degree. Further analysis revealed that long-run 
requirements were not going to be met in view of the 
continued upward trend of case loads. An effort to 
determine the reasons behind the saharply-increased 
number of cases in the past couple of years revealed 
@ greater emphasis being placed on the QDR system and 
the addition of areas not previously covered by the 
QDR. This led to the conclusion that the number of 
cases in coming years would continue to increase. 
Analysis of 1983 caseload for the period of January 
through April shows a projected work load in excise 
of 10,000 cases. This data reveals a potential case 
load increase for 1983 over 1982 of over 51x. Based 
on his upward trend, it was decided to continue the 
avaluation process toward an office automation 


systea. 





Bo. THE COST/BENEFIT ANALYSIS 

Aa was stated earlier, the flow of cases into 
FNSO revealed no significant pattern during any 
particular tine except that the total number of cases 
per year has grown at a rate of approximately SOX per 
year during the last two years. Table 1 i8 a 
breakdown by year showing the total number of cases 
that came in to FMSO, an average rmonthly case load, 
the growth rate between one year and the next, and 
the overall growth rate that the office has 
experienced from January 1979 to the end of April 


1983. 


TABLE 1 
ANNUAL CASE LOAD AND PERCENTAGE CHANGES 





9.5% 

1981 43573 381.1 159.9% 
43.9% 

1982 6809 $67.4 
494.3% 


1983* 10320 860.0 


* Projection of workload for 1983 based on January - 
April 1983 totals. 


Currently, there exists a need in the office for one 


GS-3, two GS-4’s and two GS-5 Supply Systea Clerks, 


and 





for one GS-11 first Line Supervisor. Table 2 shows 
average salaries (plus 30% for benefits) asa computed by 
FMSO using the NAVCOMP Manual formulas for computing 
local average acceleration tables for salaries paid to 
governauent service personnel. The GS-11 first Line 
Supervisor is not included in this table, as it was felt 
that there would be a need to fill this position 
regardless of the system. Therefore, a position of cost 
avoidance was taken in the cost/benefit analysis of any 
system under consideration. Table 2 further shows the 
cost of the current tire-sharing system that is currently 
installed. Using the following equation derives an 


hourly rate of current operations. 


Ta = Total salaries 

Tas = Time share syten 

H = Work hours per day 

Wq = Work days per month 

M = Months per year 

Hy = Hourly rate of current 


operations 


$91,617 + $50,000 
ee ee ee oe eee = $70.68 
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TABLE 2 
AVERAGE SALARIES AND COSTS OF CONTINUING ORIGINAL SYSTEM 





GS-3 $10,645 $13,840 312.242 * 1.30 = $15,915 
GS-4 $11,949 $315,531 $13,740 * 1.30 = $17,862 
GS-S $13,369 $17,383 $15,376 *#* 1.30 = $193,389 


Average Annual Salary 
Plus Benefits 
ae le a lade eal aes = Hourly Rate 
2004 Working Hours 
Per Year 


HOURLY 

RATE RATE 

GS-3 3 7.94 
2 * GS-4 3 8.91 
2* GS-5 3 9.97 

TIME SHARE $24.95 

TOTAL HOURLY 

RATE OF PRESENT 

SYSTEM $70.63 


$15,915 + («2 * 317,862) + (2 # 319,989) = 391,617 


Budgeted Cost of Current Tirme Share Systea for 
Next Year = #50,000 


Total Salaries + Time Share System = 8141,617 
Assuming that the hiring of these additional 
personnel can be avoided and that the current 
tine-share syster is discontinued, direct annual 
costs savings of 3141,617 can be realized. Assuming 
that an autorated office syater would coat 
approximately #50,000, the initial payback period is 
approximately four aonths as shown by the following 


calculations: 





Total system cost 

Hourly rate 

Average work hours per day 
Average work days per aonth 
Payback period measured in months 


> 

£ 

Js 
tun eu 


(CCT ge/Hy) / Awh) / Awa? a Pp 


€¢€€30,000/70.68)/ 8 )/ 22) = 4.02 months 
payback period 

The figure of four aonths represents a maxinun 
payback time since the only values taken into 
consideration at this point are the direct cost 
savings that can be easily deterrained. Table 3 shows 
the total amount of money credited back to the Navy 
Steck Fund (NSF) in calendar years 1981 and 1982. 
Averaging these two years together and computing the 
daily average amount of cash flow back to the NSF 


each working day is worth 816,780 in average cash 





flow. 
TABLE 3 
GUALITY DEFICIENCY REPORT CREDITS BACK TO THE NAVY 
STOCK FUND 
YEAR CREDITED TO NSF 
1981 $4,452,416 1981 + 1982 
emer r were rorrrsrrc-- z= $16,780 
1982 $4,407,504 22 Days * 12 Months 


AVERAGE $4,429,960 


DD 








Under the guidelines of NAVSUPINST 4440.120E, 
FMSO has ten days in which to process a QDR. At the 
time of the original systems analysis, there existed 
a thirty-seven-day average age in 800 backlogged 
QDR’s. Subtracting ten days (allowed for processing) 
£rom the thirty seven days in the backlog and 
Multipling the cash flow by twenty-seven results in 
the cost of the backlog. Increasing this by 10% cost 
eof capital Cor in this case; opportunity cost) used 
by the federal government, a twenty-seven-day backlog 
plus opportunity cost in terms of interest rate on 
that backlog can be seen . by the following 


computations: 


Calculation 1: 


$16,780 * 27 Days = $453,060 
« 1.10% 


$498,366 minimum 
cost of backlog 


Calculation 2: 


$16,780 * 36 Days 


$604,080 
* 1.10% 


$664,488 maximun 
cost of backlog 





The first figure is the minimum cost of a 
thirty-seven-day average age backlog. if hie 
backlog could be turned around in one day, a 
thirty-seven-day average age backlog can represent a 
considerable amount more in terms of cost and 
interest as seen by the second computation above. 

There is another way of looking at the cost of a 
backlog. Totaling the amount credited back to the 
NSF in calendar years 1981 and 1982 and dividing by 
the total number of cases processed during those two 
years reaults in an average value that each case 
represents. Multiplying this case value by the 
number of cases currently in the office at any given 
point in time resaults in an average value of the 


backlog. 


Total 1981 & 1982 Credits 
a ee a = Average Value of a Case 
Total Cases for 1981 & 1982 


4,573 + 6,809 


800 cases * $778 = $622,400 





This final figure ia very close to the the 
figures obtained earlier. When either set of figures 
is brought into the cost/benefit analysis, the mere 
ability to keep the processing time of the cases 
within the tena day alone means a payback of the 
systea costa within weeka rather months. 

There are some other areas where savings can be 
realized that are not a0 dramatic. Currently, the 
work ia being handled by six Supply System Analysts 
and three Supply Syasaten Clerka. An analysis of 
actual production hours revealed that 312 days (12% 
of available work time) were lost to annual leave and 
sick time. Effectively, the office was functioning 
one peraon~ short. While overtime was not being 
heavily used in the office, what was being used was 
only making up for the effective loss of the one 
person. 

Another area for consideration is that of the 
Supply System Analysts. Currently, all but one of 
the SSA’s were brought into the office as a GS-9. 
The other analyst was hired originally as a 5-7-3 
trainee. This SSA is functioning as well as any of 
the others in ability to handle the workload. It is 
conceivable that, as the current analysts 
retire/transfer, new analysts could be brought in the 


sare xnanner. This procedure would allow for the 
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possibility of growth on the job, less coat to the 
government during the training period, add the needed 
infusion of younger ideas, and instill an uplift in 
general rorale. 

The intangible benefits that will be realized by 
this streamlining of the FMSO process will mean the 
elimination of a armajor bottleneck in the flow of 
cases from the Fleet to the Item Managers and back to 
the fleet. This will not be in terma of just new 
cases but in all transactions within the QDR process 
and will effect the whole Navy Supply Syster, 
producing shorter response times that will translate 
into a better supply asaystem and improved cash flow 


back to the NSF. 


C. THE PROPOSED AUTOMATED SYSTEM DESIGN 

The long range plans of FMSO are to install a 
conputer-based Managerent Information Systen. It 
was, therefore, decided that thia project would be 
the ideal place to start by using a prototype 
implementation process. Under this process, the user 
and the developer can work more effectively toward 
the end goal of achieving a viable system. The 
prototyping process allowa for a fairly quickly 


produced user product that isa atarting point for 





evaluatinon and critical analysis. The developer can 
then revise and install a new intermediate version. 
This flexibility allows unforeseen applications to be 
incorportated into the overall system with eae ainimua 
of disruption. 

The advantages of this approach are: 1> The 
system is introduced fairly quickly: 2) because the 
system is not a final product, it is easier for the 
user to learn: 3) it forces satructure to the 
applications development to allow changes to be aade 
easily and quickly without complete rewrites; 4) it 
@llows the users to realize their real needs as 
opposed to their preceived needs: 5) it allows the 
user to grow with the systen rather than have it 
handed to them as one inmense, overwhelming package; 
6> the end product will be closer to the actual 
systen requirements than other methods provide, and 
7) it allows for a saoother transition between 
developer and user. This transition can be 
accomplished smoother than with other methods since 
the user’s staff has been involved with the 
development of each version of the system and thus 
are already familiar with the syatem. A negative 
factor to be considered is that it can prove to be 
more expensive in terms of actual asaystem development 


time than other saethods. Also, there has to be a 
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definite point at which the in-house staff assumes 
responsibilities for any further development § and 
maintenance. 

Figure 20 is a logical representation of the 
proposed systen. It includes ten IBM PC work 
stations; two printers (‘one correspondence-quality 
daisy wheel printer for message traffic or fine 
letter-quality reports and one high-speed dot ratrix 
printer capable of producing 15-inch-wide reports for 
internal use), and a network systern that allows all 
workstations to use a shared central database. 
Initial prototyping of the aysten will be 
accoauplished at the Naval Postgraduate School ina 
Thesis by Ron Nichols. In this satage the network 
will only utilize up to four IBM PC’s to aid in the 
evaluation of the best ways to handle the issuea of 
database aanagement protocols. When research and 
development at the Naval Postgraduate School is felt 
to be sufficiently complete, personnel from FMSO will 
be invited to evaluate ita initial performance prior 
to installation. Additional IBM PC’a will be added 
during final assembly at FMSO to bring the total 
number of astationa to ten. Further development of 
the asystern will then be turned over to FMSO after a 


short in-house, fuil aystera evaluation. 
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Logical Representation of Proposed Automated Systen 
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Figure 21 shows the present floor plan currently 
in existence in the Technical Branch, code 9142, at 
FMSO. This is the office into which the system is to 
be installed. Figure 22 shows a proposed floor plan. 
The proposed system would allow the inumediate first 
Line Supervisor, who is a working floor supervisor, 
to have a work station on his/her desk. Access to 
the data for management purposes by the second Line 
Supervisor would be through the branch secretary’s 
work station. 

This network allows for 128 work atations (eight 
master stations each handling up to sixteen user 
stationa). At present, only approximately 13 devices 
are currently planned to be attached. Follow on 
applications could be considered for the adjoining 
offices in the same physical locality and within the 


game branch (i.e. codes 9141, 931422 and 3143). 


DBD. COST OF PROPOSED SYSTEM 

Table 4 contains the liat of system components, 
the quantity and total coats. Development time of 
the necessary databases and initial application 
programs will be done as a part of a follow on thesis 
that will explore the questions concerning database 


management and network control. 
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By using this system as a research tool and 
prototyping the installation, additional costs 
aavings will be realized in the process. 

Training costs are being offset by having placed 
an IBM PC with limited database in the office for 
personnel to experience and experiment with as tine 
permits. Having this sysatea physically in the office 
allows the personnel to become familar with it and 


helps to reinforce the change process over time. 


TABLE 4 
COMPONENTS LIST OF PROPOSED AUTOMATED SYSTEM 
QTY ___s_—OdDESCRIPTION OU PRICES 


10 IBM P.C. w/2 320Kb Disk Drives $18,430 
10 Color/Graphics Adapter S$ 1,710 
10 Color/Graphics Monitors S$ 4,760 
8 PCnet Network Adapter Card S$ 3,560 
1 PCnet Starter Kit S$ 1,490 
400 £t PCnet Finished Cable - RGSSB/U Coax 3 200 
1 Tri Hex Tool ‘(To put coax together) Ss 200 
Bt Model 20 N/M Omninet Disk Syatea 
w/built-in MIRROR $3 4,068 
z Disk Server for IBM P.C. Ss 891 
a Okidata 93 Printer Ss $00 
1 Diablo 630 Printer w/keyboard S$ 2,400 
x Panasonic N.V. 8200 Video Recorder S 1,178 
TOTA. $43, 787 


Prices based on current GSA contracts with the 
manufacturing/retail companies. 
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ADDITIONAL MANAGEMENT CONSIDERATIONS 
A certain compatibility and flexibility on the 
of the user is assumed in any recommendation for 


ew syster. However, aa Machiavelli observed in 


“There is nothing more difficult to plan, 
re doubtful of success, nor aore dangeroua to 
nage than the creation of a new system. For 
e initiator has the enmity of all who would 
ofit by the preservation of the old ayatem and 
rely lukewara defenders in those who would gain 

the new one.” 


Beer {Ref ks Pp. 102-103] identifies some 


leas in the area of change. He states: 


“As people begin to engage in the change 
tivities and the magnitude of the emotional and 
terial investmauent required are first realized, 
tivation and enthusiasm for the change will be 
gnificantly reduced. For the firat time, 
ople in the organization may realize that 
rtain preaent aatisfactions, such as the 
easure of purauin old cala or behaving in 
customed ways, will have to be vie up if new 
rformance levels are to be accoauplished. 


“There are ty pagally four areas in which 
eee soe members may experience losaes due 
change: 


“1. Loss of competence. 
at changes place demands on organizational 


members for new attitudes, akills, and behavior 


as former ways of doing thinga aust be discarded. 
The sense of conpetence which comes fron 
succes@ful performance of old rolea ia diaiashed 


ro 


Or 
in 


The loss of familiar and valued re 


before a paeeEr ee) and threat associated with new 
= 


le denands can overconrne. 


“2. Loss of Bate* Screens: 
anizational changes ypically mean new 
eraction patterna as people are reassigned or 


tionshipa and 


new settinga for deciaion meng are created. 
a 
£ 


the energy required to work ou 


new ones ia 


experienced aa 5 cost of change by those 


oft 
er 


affected. At the plant Ey ae introduction 


autonomous work teama typically reaulta in the 
eation of new relationships, as doea the 


introduction of project or business teams when an 


or 


ganization moves to aatrix. 


67 





“3. Loss of power. 
There are few organizational changes that do not 
reault in a ahitt in power and influence. Sone 


arta of the organization and sore role 
ncumbents gain power while others lose it. For 
exanple creating aore challengin jobs on the 


shop floor reduces the traditional power of the 
first line supervisor and usually resulta in 
resistance to change. 


“4. Loss of extrinsic rewards. 
Organizational changes reault in increased 
compensation and perquisites ‘offices, cars, 
parking spaces, etc.) tor asaome. Others aay lose 
revards or see fewer opportunities for a 
Significant increase in them in the future. 


“As organizational aenmnbers come face to face 
with thease changes in their psychological 
contract they rt to lose aotivation to change, 
motivation whic may have been high in the 
ona 2 atages. Organization inertia is 

ntensitied.” 


The ability to irtroduce change and have it 
accepted is probably the most challenging aspect of a 
syatenm developer. Therefore, thia atudy was 
approached from the standpoint of having to deal with 
any aspect of reaistance to change and how to handle 
the resistance in a positive, productive manner. 

Since the introduction of change can be seen also 
as 4 process of managing conflict, it was decided to 
use Brown’s conflict nanagement intervention 
atrategies. Brown [Ref 2: pp. 302-306] categorizes 
conflict management interventions into four 
categories: 

1. Redirect behavior. 

This includes “redefining issues, raising 
asliternative solutions, altering patterns of 
communication between the parties, or revising the 


immediate behavior of representatives.” 
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2. Reframe perspectives. 

Reframing perspectives includes 
“reformulating party interasats, altering unrealistic 
sterotypes, changing perspectives on the situation, 
and educating parties about the dynamics of 
conflict.” 

3. Reallocate resources. 

Here Brown suggests changing “the character 
of the interdependence among the parties, or alter 
the resources available for managing conflict.” 

4. Realign underlying structural forces. 

This is the process of “redefining 
boundaries, altering their permeability, revising 
formal rules and procedures, renegotiating informal 
noras and values, and refocusing organizational 
incentives that influence conflict.” 

Brown further offers some rules of thuab by which 


to manage conflict by intervention: 


"1. Choose target dynamics on the 
basis of (1) their centrality to conflict 
problears and (2) the riaka and benefits of 
intervention. 


"2. Combine intervenora to develop 
access, credibility, and resources 
appropriate to target dynaaica and 
interventions. 


<i Combine interventions 
Simultaneously or in aequence to fit the 
resources of intervenors and the demands of 
the aituation. 


"4. Use the self-reinforcin quake ey 

of conflict dynarica to €1) nterru 

patterns of representative interaction, (2) 

redefine and reorganize interface 
interdependent representative interactions 

anc sagper face developrents.” Ref 3: Pp. 
17- 
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in addition to this approach, a series of 
meetings were scheduled to allow personnel the 
opportunity to react to ideas and discuss proposed 
changes. This approach adds depth to the amain 
methodology. It allows a feeling of participation, a 
greater degree of emotional commitment to the project 
by personnel who otherwise could feel alienated and 
decreases their resistance to the change. 

Often overlooked when change has been introduced 


isa the follow-up. Beers states: 


“Follow-up ia the key to sustaining 
rnotivation, developing emotional support for 
nanagers and change agents, linking, and 
developing competence. The importance of 


follow-up is supported by research which 
denonstrates that consultant involvement before 


and after team-building interventions was 
associated with greater effectiveness when 
compared to team-building interventions in which 
there waa little consultant involvement 
(Friedlander, 139368). ant het Frohman (1970) 
reports that consultant Ze and uidance 
increased the effectiveness survey feedback 
interventions. 


“While it’s not clear from these reports what 
the consultants did, it is likely hat they 
helped people develop competence needed to move 
change along, brought people and groups together, 
helped the client to review progress, provided 
emotional aupport, and in general served as a 
symbol and prod for change. There i383 no one way 
to follow-up. By definition, follow-up 
ee, Rone ore and can only be planned in 
responae events as they develop. What can be 
Boaigiad ~ "he the managerial atructures and 
De that have been found useful in planning 

ring follow-up (Beckhard & Harris, 
1397). n tRe£ 4: pp. 105] 


It was because of these assumptions a prototype 
approach was decided upon. This approach allows for 


the greateat degree of flexibility in the 


TO 





introduction of change. | At every stage of the 
process, the necessary supports for reinforcement are 
present and the total change occurs piece by piece 
rather than in the form of what Gall [Ref 5: pp, 20] 
refers to as a Climax Design, in which the largest 
most complex system is introduced all at once. This 
type of approach generally produces systems that 
exhibit unexpected behavior leading to resistance. 


AS 48 result, the system suffers. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

The analysis of a small office’s work flow within 
4a larger organizational setting has been presented in 
this study. From this analysis, the following 
conclusions have been drawn: 

ae The adaption of a new manual flow process has 
been shown to be a viable alternative to full 
automation. 

Za The work load of the office is increasing at 
an average annual rate of over 31%. 

3 Because thia trend shows indications of 
continuing upward rather than leveling off or 
decreasing, the manual processing of the workload 
will continue to be a problem in the foreseeable 
future. 

4. It is apparent that a fully automated systen 
ig the best viable alternative to meet the needed 


increase in productivity in the coming years. 


B. RECOMMENDATIONS 
i”; That the work flow for the Defective Material 


Section (code 91423) be fully automated. 
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Ze That the Supply Systera Analysts be provided 
with a specific set of job standards and performance 
incentives. 

a That a GS 3-7-9 training program be 


established to train future Supply System Analysts. 
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APPENDIX A 


This appendix contains complete module listings 


and data base files Gor version 1.0 ot the Interim 


Database Management System. The modules are arranged 
in logical Grder’ Of Sthesr position within the 
structured hierarchy. Included herein also is a 


general lower level module stub used to aid in the 


development of a higher level module. 
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MAIN MODULE (MAIN. PRG) 


ERASE 

SET TALK OFF 

SET COLON OFF 

USE QDR 

@ 5S, 19 SAY "This will take awhile.” 

@ 10, 10 SAY “Please be patient.” 

@1s5, 10 SAY "I will let you know when I’m done." 

DO CNTR 

ERASE 

@ S, 10 SAY “I’m back. Everything is counted now.” 
@ 10, 10 SAY "Shall we continue ¢Y or N)?" 

SU@Re 1 TO X 

DO WHILE X < 250 
Sense ht L TO X 

ENDDO Pause 

DO Menu 
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COUNT 


MODULE (CNTR. PRG) 


STORE OG TO MNtowal 
STORE O TO Mwork 
STORE O TO Mawtg 
DreGke OF FO Mjob 
STORE O TO Mprocess 
Sone oO. lO Meato 
STORE O TO Mcatl 
STORE O TO MecetZ 
STORE O TO Mresponse 
STORE O TO Mecloseout 
STORE O TO Mtime 
STORE 30 10) Meount 
STORE O TO Mtran 
STORE O TO Mclose 
STORE O TO Mtech 
STORE T TO Mflag 
STORE “" " TO Mim 
Stren 10 Meog 
NOTE START OF COUNT AND UPDATE ROUTINE 
DO WHILE .NOT. EOF 
NOTE COMPUTATION OF HOW LONG A CASE AWAITS ACTUAL 


NOTE PROCESSING BY AN ANALYST 


IF Date:in <= O .AND. Intwork <= O 
Shue 
LOG@F 
ELSE 
Srene Mecotel + 1 TO Mtotal 
@ 23, 10 SAY “Record being evaluated is number:"; 
GET Mtotal 
STORE Iniwork - Date:in TO Mwork 
IF Mwork <= O 
STORE 1 TO Mwork 
ENDIF Zero Check 
STORE Mawtg + Mwork TO Mawtg 
STORE O TO Mwork 


ENDIF Mawtg 
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NOTE ANALYST CODE EVALUATION SECTION 


STORE Techi:code TO Mtech 
SELECT SECONDARY 
USE B:Techcode 
DO WHILE .NOT. EOF .AND. Mftlag 
IF Tech = Mtech 
REPLACE Counter WITH Counter + 1 
ST@RE F TO Mflag 
EESE 
Skip 
LOOP 
ENDIF Techcode 
ENDDO Not EOF 
Deen tac 
APPEND BLANK 
REPLACE Tech WITH Mtech 
REPLACE Counter WITH 1 
ENDIF Mflag 


NOTE GO BACK TO PRIMARY DATABASE FILE (QDR) 
NOTE EVALUATE THE COG CODE OF THE CASE 


SELECT PRIMARY 
STORE Cog TO Mcog 
SITGSRE.? TG Milag 
SELECT SECONDARY 
USERS = Cogeount 
DOM HILE .NOT. EOF .AND. Milag 
IF Cog = Mcog 
REPLACE Counter WITH Counter + 1 
SWORE F TO Nileag 
EESE 
Sk iF 
ENDIr Cog = Neog 
ENDDO Not EOF 
IF Mflag 
APPEND BLANK 
REPLACE Im WITH Mim 
REPLACE Counter WITH 1 
ENDIF Mtlag 


NOTE EVALUATE THE ITEM MANAGER FIELD OF THE CASE 


STORE Itemimgr TO Min 
SIOre 1 TOeMtlas 


fore 





SELECT SECONDARY 
USE Bi:Imcount 
DO WHEE VaNOG@. oEOF .AND. Milag 


EN 


IF Im = Min 
REPLACE Counter WITH Counter + 1 
STORE F TO Mflag 

ELSE 
SKIP 

ENDIF Im is Mim 

DDG Not EOF 


IF Mflag 


EN 


NOTE 


APPEND BLANK 

REPLACE Im WITH Mim 
REPLACE Counter WITH 1 
Dit belt vac 


RETURN TO THE PRIMARY DATABASE FILE (QDR) 


NOTE CHECK THE CASE FOR THE CATEGORY AND ERROR TRAP 
NOTE WRONG CATEGORY CODES 


Se 
oe 


Ee 


LECT PRIMARY 
Category = “1" 
SISKe Meati + 1 TO Meatl 
SE 
ipPecategory = “2" 
Speneehnecewus + 1 TO Meatz 
BESE 
STORE MeatO + 1 TO Meato 
ENDIF Cat2 


ENDIF Catil 
NOTE EVALUATE THE ACTUAL TIME IT TOOK TO GET THE 
NOTE CASE PROCESSED IN THE OFFICE AND OUT TO THE 
NOTE ITEM MANAGER (INITIAL PROCESSING TURN AROUND 
NOTE TIME) 
IF Transmit <= 0 
SKIP 
LOOP 
ELSE 


STORE Mtran + 1 TO Mtran 
STORE Transmit - Intwork TO Mwork 
IF Mwork <= O 

STORE 1 TO Mwork 


ENDIF Zero Check 
SEeke Myob + Nwork TO Mjob 
STORE O TO Mwork 
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NOTE EVALUATION OF ACTUAL TURN AROUND TIME FROM 
NOTE ARRIVAL TO TRANSMITTAL OF CASE 


STORE Transmit - Date:in TO Mwork 
IF Mwork <= 0 
STORE 1 TO Mwork 
ENDIF Zero Check 
STORE Mprocess + Mwork TO Mprocess 
STGRE © TO Mwvork 
ENDIF Transmit Check 


NOTE EVALUATION PROCESS AS TO HOW LONG IT TAKES THE 
NOTE ITEM MANAGER TO PROCESS A CASE AND RETURN IT TO 


NOTE FMSO FOR CLOSE OUT ACTIONS 


IF Response <= 0 
SKIP 
LOOP 
BLS 
STORE Mcount + 1 TO Mcount 
STORE Response - Transmit TO Mwork 
IF Mwork <= 0O 
STORE 1 TO Mwork 
ENDIF Zero Check 
STORE Mresponse + Mwork TO Mresponse 
STORE O TO Mwork 
ENDIF Response Check 


NOTE EVALUATION OF HOW LONG IT TAKES FMSO TO CLOSE 


NOTE A CASE OUT AFTER RECEIPT BACK FROM THE ITEM 
NOTE MANAGER 


IF Closeout <= O 
SK 
LOOP 
ELSE 
STORE Mclose + 1 TO Mclose 
STORE Closeout - Response TO Mwork 
IF Mwork <= O 
Suere 1 TO Mwork 
ENDIF Zero Check 
STORE Mcloseout + Mwork TO Mcloseout 
STORE O TO Mwork 
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NOTE EVALUATION AS TO HOW LONG IT TOOK TO PROCESS 
NOTE THE CASE FROM ARRIVAL FMSO UNTIL IT WAS CLOSED 
NOTE OUT AND DISPOSITION INSTRUCTIONS ISSUED 


STORE Closeout - Datetin TO Mwork 
IF Mwork <= 0O 

S7T@GnRe 1 FO Nwork 
ENDIF Zero Check 
STORE Mtime + Mwork TO Mtime 
STORE O TO Mwork 


ENDIF 
SKIP 


Closeout Check 


ENDDO Count 


NOTE STATISTICS FROM THE DATABASE ARE CAPTURED AND 
NOTE STORED TO DISK TO CREATE A DYNAMIC ON GOING 
NOTE PROCESS TO ELIMINATE THE TIME CONSUMING PROCESS 
NOTE OF COUNTING EVERY RECORD WHENEVER A REPORT [S 
NOTE NEEDED 


USEA BT eDRSTATS 


REPLACE 
REPLACE 
PEePLACE 
RePLACE 
REPLACE 
Re CAGE 
Berl ac» 
REE ACE 
REPLACE 
REPLACE 
REPE ACE 
Ree Agi 
REPLACE 


Total WITH Mtotal + Total 

Awtg WITH Mawtg + Awtg 

Sos evi TH Mjob + Job 

Process WITH Mprocess + Process 
CatO WITH McecatO + Catod 

GaeieewitH Meatl + Catl 

Gace WITH MNMeatz2 + Catz 

Response WITH Mresponse + Response 
Closeout WITH Mcloseout + Closeout 
Time WITH Mtime + Tine 

Counter WITH Mcount + Counter 

Tran WITH Mtran + Tran 

Closed WITH Mclosed + Closed 


Seer Shee RIMARY 


RETURN 
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MENU MODULE (MENU. PRG) 


ENDCASE Reply 
ENDDO Continue 


STCRE T TO Continue 
STCGRE “” “” TO Reply 
SET TALK OFF 
Sew, COLON OFF 
DO WHILE Continue 
ERASE 
G45 G5 Sar MAIN MENU" 
Geo lo sae Selecteeaond enter the number of your”: 
“ene lee.” 
@ 8, 21 SAY “1. APPEND Records" 
Geese lonony “2. —"2DIT Records 
Ci eon So. Produce [Turn Around Time Report." 
@i2, 21 SAY “4. Produce System Analyst Case"; 
“Load Report." 
@13, 21 SAY “S. Produce Complete Management": 
“Report.” 
Geloapeeecin on. oo. Guit @Base if Program.” 
REAL 
DO” GaSe 
CASE eRereyY = “1]" 
DO ADDREC 
CASeeRerLyY = “2” 
DO QDREDIT 
GASE REPLY = “3" 
DO TAT 
CASE REPLY = "4" 
DO CASELOAD 
CASE REPLY = “S" 
DO MGR 
PASE) REPLY 
QUIT 
OTHERWISE 
LOOP 





GENERAL MODULE STUB 


STORE T TO Ccontinue 
DO WHILE Continue 
ERASE 
eect Of ony os inis 1s -=---=-- a 
Meo, 10 SAY “Shall we continue (Y or N)?" 
WAIT to Output 
Bee Owe put o= *Y” 
STORE F TO Continue 
Bose 
LOOP 
ENDIF Ooutput Check 
ENDDO Continue 
RETURN 
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RECORD EDITING MODULE (QDREDIT. PRG) 


SELECT PRIMARY 
USE B:Qdr INDEX B:Cases 
SrOke T TO Mflagt 
STORE tT TO MNtlag2 
DOSWHILE Mflagl 
ERASE 
Sore "* “ TO Mcasenr 
VOmwHie Mtlagz 
GeezOue 2ZOeSAre ENTER CASE NUMBER: ": 
GET Mcasenr PICTURE “XXXXXXXXXK" 
READ 
IF Mcasenr = " " 
aOhe es he) Mflagti 
Sherer 10 Melag2 
LOOP 
ENDIF Blank case number 
FIND &Mcasenr 
IF # = O 
@ 22, 20 SAY “CASE NOT FOUND, PLEASE REENTER"” 
Pie e 
STORE F TO Mféilag2 
ENDIF Record not found 
PENDBOVie lagZ 
LP NGinw me Lag 1 
LOOP 
ENDIF Mflagl 
SlORB Datezin TO Cdatesin 
STORE In:work TO Cint:work 
STORE Caseinr TO Ccaseinr 
SiGREweogs 16 Ccog 
STORE Tech:code TO Ctech:code 
STORE Itemimgr TO Citemingr 
STORE Category TO Ccategory 
SYO@RES Transmit TO Ctransmit 
STORE Response TO Cresponse 
STORE Closeout TO Ccloseout 


ER Ao 
Gilommoroay) DATE: IN owl Ome oN rPiCTURE “9999" 
Gitte oar. - LN. WORK — Greteeen- WORK PICTURE “S999” 
iS i 2 eect CAE > NK Pece) (CASE s>NR PLECTURE: 
“XAXAXXXKXXK”™ 
ig 1S, omeon +) CCUG Sewer weOG er iCTURE “XX” 
Ceo eon. CODR “ GET TECH; CODE PICTURE; 
"“9g9Q° 
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GS wees oes Gr GET ITEM: NGR PICTURE: 


KKK: 

Geico ema onic aigGcenryres GET CATEGORY PICTURE "xX" 

Cle eee ee Stee 6 | 6CGGET 6 6uTRANSMIT PICTURE; 
nooo 5): 

Oreo on ene orONor. GET RESPONSE PICTURE: 
“2259 

ae oe es eee LOSE OuUT | GET CLOSEOUT PICTURE: 
eke) Jase 


READ 
LPP eecoG .<yeCCoG 
SELECT SECONDARY 
USE B:COGCOUNT 
STORE 1T-TO, Melag 
Slee, OF loencounter 
DO WHILE .NOT. EOF .AND. Mftlag 
IF CCOG = COG 
REPLACE Counter WITH Counter - 1 
SuoRewmeocuncer + 1 TO Mecounter 
ESE 
tae COG = Ss. COG 
REPLACE Counter WITH Counter + i 
STORE Mcounter + 1 TO Mcounter 
ENDIF P = § 
ENDIF CCOG = COG 
IF Mcounter = 2 
STORE — PO Mtlag 
ENDIF @Mcounter = 2 
SKIP 
ENDDO NOT EOF 
Dee Lag 
APPEND BLANK 
REPLACE S.COG WITH P.COG 
REPLACE Counter WITH 1 
ENDIF Mflag 
ENDIF <> 
TPO PetTecHsCODE <> CTECH: CODE 
SELECT SECONDARY 
USE B:Techcode 
STORE TF WO) MElag 
STORE O TO Mcounter 
DORWHILE VaNO@T. EOF .AND. Mflag 
IF CTECH:CODE = TECH 
REPLACE Counter WITH Counter + 1 
Sroneemeounter + 1 TG Meounter 
SESE 
Be SwEGH = TECH: CODE 
REPLACE Counter WITH Counter + 1 
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STORE Mcounter + 1 TO Mcounter 
ENDIF S = P 
ENDER CTECH: CODE = TECH 
PrP -Meounter = 2 
Sroks F TO Mtlag 
ENDIF Mflag 
SKIP 
ENDDO While Not EOF 
IF Mflag 
APPEND BLANK 
REPLACE TECH WITH TECH:CODE 
ENDIF Mflag 
ENDiPr TECH. CODE 
IF P.ITEMPNGR <> CITEM: MGR 
SEVECT. SECONDARY 
USE B:sImcount 
STORE T TO Mtilag 
STORE © TO Meounter 
DG WHITE @eNGT. EOF .ANDie Mfilag 
TF °CLi@airnGR = IM 
REPLACE Counter WITH Counter - 2 
STORE Mcounter + 1 TO Mcounter 
ELSE 
ice 0h = SPP EM : MGR 
REPLACE Counter WITH Counter - 1 
SPeokeeiagountcer + 1 TO Meounter 
ENDGiR sin = [LTEMSMGR 
ENDIF CITEM:MGR = IM 
IF Mcounter = 2 
Sonne: 1G Milag 
ENDIF Mcounter = 2 
SKIP 
ENDDO Not EOF 
IF Mflag 
APPEND BLANK 
REPLACE IM WITH ITEM: MGR 
REPLACE Counter WITH 1 
ENDIF Mflag 
ENDIF <> 
SELECT SECONDARY 
USE B:B Qdrstats 
IF CRESPONSE <> O .AND. P.RESPONSE = O 
REPLACE Counter WITH Counter - 1 
ELSE 
IF CRESPONSE = 0 .AND. P.RESPONSE > O 
REPLACE Counter WITH Counter + 1 
ENDIF 
ENDIF Counter 
IF CTRANSMIT <> O .AND. P.TRANSMIT = O 





REPLACE Tran WITH Tran - i 
ELSE 
IF CTRANSMIT = O .AND. P.TRANSMIT = O 
REPLACE Tran WITH Tran + 1 
ENDIF 
ENDIF Tran 
fee eoseeaut <> O-,AND. P.CLOSEOUT = O 
REPLACE Closed WITH Closed - 1 
ELSE 
PeweGeOoseOulL = "O°SAND. P.CLOSEOUT > O 
REPLACE Closed WITH Closed + i 
ENDIF 
ENDIF Closed 
IF P.CATEGORY <> CCATEGORY 


DO CASE 
CASE CCATEGORY = “1" 
REPLACE Catl WITH Catli - 1 
CASE CCATEGORY = “2° 
Reem acr Gate WITH Gatz2 - 1 
STE KWESE 


Roc enecoeecato WITH Cato = 1 
ENDCASE 


DO CASE 
CASE CATEGORY = "1" 
Rerperer Catl WITH Cati + 1 
GASe CATEGORY = “2” 
REPLACE Cat2 WITH Cat2 + 1 
OTHERWISE 


REPLACE CatO WITH CatO + 1 

ENDCASE 
ENDIF CATEGORY <> 
STORE CIN:WORK - CDATE:IN TO Cawtg 
STORESCTRANSMIT - CIN:WORK TO Cjob 
SlGhemerkanwotil = CDATE: IN TO Cporocess 
Sen omGe Oseeault = CRESPONSE TO Celosed 
STORE CRESPONSE - CTRANSMIT TO Cresponse 
Seon emcCLOSsPOUT - CDATE:IN TO Ctime 
Slee eewunsWwORK - DATESIN TO Nawtg 
STORE TRANSMIT - IN:WORK TO Mj0b 
STORE TRANSMIT - DATE:IN TO Mprocess 
STORE RESPONSE - TRANSMIT TO Mresponse 
SlIGee GeOsrFOUT -—- RESPONSE TO Meloseout 
SIOREmOCLOSFOUT ~ DATESIN TO Mtime 
IF Cawtg = O 

STORE 1 TO Cawtg 
ELSE 

IF Cawtg < 0 

SIORE O TO Cawtg 
ENDIF < O 
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ENDIF Cawtg = 0 
IF Cjyob = O 
Sooke 1 TQ) Cye5 
BESc 
ie Cyep. < © 
mone O TO Cy 0b 
ENDIF < 0 
ENDIF Cjyob = 0 
IF Cprocess = O 
STORE 1 TO Cprocess 
EESE 
IF Cprocess < O 
STORE O TO Cprocess 
ENDIF Cprocess < O 
ENDIF Cprocess = 0 
IF Ccelosed = O 
STORE 1 TO Cclosed 
BESE 
IF Ccelosed < O 
STORE O TO Cclosed 
ENDIF Cclosed < O 
ENDIF Cclosed = 0O 
IF Cresponse = O 
STORE 1 TO Cresponse 
EES] 
IF Cresponse < O 
STORE O TO Cresponse 
ENDIF Cresponse < O 
ENDIF Cresponse = 0 
IF Ctime = 0O 
Srore 1 TO Ctime 
ELSE 
IF Ctime < O 
SORE O TO Ctime 
ENDIF Ctime < 0O 
ENDIF Ctime = O 
IF Mawtg = O 
Soke 1 TG Mawts 
ECSE 
IF Mawtg < O 
Splene ©O TO Mawtg 
ENDIF Mawtg < O 
ENDIF Mawtg = O 
IF Mjob = O 
SuORe 1 TO Mjob 
Boo 
iP aiagop < © 
Sooke OeTO Mjob 
ENDIF Mjob < O 


ST 





ENDIF Mjo0b = O 
IF Mprocess = 0 

SPGRE 1 TO Mprocess 
ELSE 

IF Mprocess < 0O 

STORE O TO Mprocess 

ENDIF Mprocess < 0 

ENDIF Mprocess = O 


IF Mresponse = 0 
STORE 1 TO Mresponse 
Se Se 


IF Mresponse < 0O 
STORE O TO Mresponse 
ENDIF Mresponse < O 
ENDIF Mresponse = 0 
IF Mcloseout = 0O 
STORE i TO Mcloseout 
BESe 
IF Mcloseout < O 
SPORE O TG yNecloseout 
ENDIF Mcloseout < O 
ENDIF Mcloseout = O 
IF Mtime = O 
STORE ITO Mtime 
ELSE 
IF Mtime < O 
STORE O TO Mtime 
ENDIF Mtime < O 
ENDIF Mtime = QO 
REPLACE Awtg WITH Awtg + Mawtg - Cawtg 
REPEACE Job WITH Job + Mj0b - Cyob 


REPLACE Process WITH Process + Mprocess - Cprocess 
REPLACE Response WITH Response + Mresponse ~- 
Cresponse 


REPLACE Closeout WITH Closeout + Mcloseout - 
Cceloseout 

REPLACE Time WITH Time + Mtime - Ctime 

sOGRkeE fT TO yNtlag2 

SELECT @PRIMNARY 
ENDDO Mflagl 
RETURN 
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TURN AROUND TIME MODULE (TAT. PRG) 


SELECT SECONDARY 

USE B:Qdrstats 

STORE Process/Total * 1.00 TO Mtat 
STORE Awtg/Tran #* 1.00 TO Maapt 

STORE Job/Total * 1.00 TO Mapt 

STORE Response/Counter * 1.00 TO Mimr 
STORE Closeout/Closed * 1.00 TO Mcot 
STORE Time/Counter * 1.00 TO Mtime 
SrOoke T TO Crt 

STORE T TO Continue 


DO WHILE Continue 
ERASE 
Geo peLOusnyY Do you want a printed report “+; 
MmoreonewN) 2 GET Kkeply PICTURE "xX" 
READ 
DO GASE 
CASE !¢Reply) = “Y" 
ERASE 
SET PRINT ON 
SET SCREEN OFF 
SET FORMAT TO PRINT 
Smear. fo Crt 
STORE F TO Continue 


CASE !¢Reply) = "“N*" 
STORE F TO Continue 
OTHERWISE 
LOOP 


ENDCASE Optional print 
ENDDO Continue 


ERASE 

Seo ear.) TURN AROUND TINE REPORT FOR CODE”; 
a 

@ 7, 10 SAY “The average turn around time to "+r; 
meee 1S. .« s « « «  *95TR(MNtat,6, 2) 

@ 8, 10 SAY “The average awaiting process time "+; 
Se. «6 «6 torr theapt,6, 2) 

@ 93, 10 SAY “The average processing time "+; 
<a ee como Sin (Mapu, 6, <) 


@ 10, 10 SAY "The average time awaiting item "+; 
“manager response is "+STR(Mimr,6,2) 

@ 11, 10 SAY “The average time to close out a "+; 
eases. «-« ss ue etoln CMcot,6, 2) 

g@i3, 10 SAY “The average turn around time of "+; 
"a case from” 
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@ 14, 10 
@ 16, 190 
@ 17, 10 
@ 18, 10 
@ 19, 10 


SORE .T. T 
DO WHILE 
fe ecrt 

GQ 22, 


READ 
Eros ¢ 
Se 
DO 
ELSE 
LOO 
ENDIF 
Ero 
BIBT 
SE ie 
SE 
Sis 
ENDER 7c 
Ge iS.e 


READ 
IF !¢Re 
SELEC 
DO Me 
ELSE 
LOOP 
ENDIF R 
ENDDO Con 


SAYe “=rraval acer nse to final eclose “+: 


Ol emesis gs) ese 
SAY “The total 
“database is. 
SAY “The total 
“item managers 
SAY “The total 
“item managers 
SAY “The total 
“date are... 
O Continue 
Continue 

= T 


twee Tak ibime,&, 2) 
number of cases in the 
meow ot ork rotal ,6,0) 
number of cases sent to 
is “+*STR¢Tran,6,0) 
cases responded to by 
Poe tot RCCounter,6,0) 
cases closed out to “+; 
Meee to. nC Closed,&,0) 


Lh Aes 


tan Do Voumwiah tO continue “+> 


neu eor NZ 


Reply) = “yY" 
ECT PRIMARY 
Menu 


P 
Reply 


RON Orr 
CREEN ON 


Oeiagens OCREEN 


Et 


Go nepiy PICTURE “xX 


O SAY "Do you wish to continue “+; 


meCyY Or ND?" 


ply) = ye 
T PRIMARY 
nu 


eply 
tinue 


GPa sep yerliCrUuURE “xX” 


oo 


neds 


: 7s 
ievehate 


ruil 





SYSTEM ANALYST CASE LOAD MODULE (CASELOAD. PRG) 


STGRE T TO Crt 
Slene T TO Continue 
sone O TO Moc 
Srore O TO Macl 
STORE O TO Manal 
Sm@ne " * TO Reply 


Sele Com SECENDARY 

USE B:Qdrstats 

ERASE 

Ceo, Ch ont HOWeMany analyst are currently “+r: 
assmoned<=s: GET Maral PICTURE “S”" 

Galop Low osnre DO you want a2 printed report “+; 
me@reorene: “ GET Reply PICTURE “x” 

READ 

STORES Fotali/Nanai = 1.00 TO Maci 


DO WHILE Continue 
ERASE 
DO -GASE 
GAase  tCReply) = "YY" 

ERASE 
SET PRINT ON 
SET SCREEN OFF 
Seteeemint FO PRINT, 
Sennen  1O0eGcrt 
SIGRE F TO Continue 


CASE !CReply) = “N* 
SaecRE F TO Continue 
OTHERWISE 
LOOP 


ENe@eaos Ootional print 
ENDDO Continue 


ERASE 

Ceo ees sir) SUPPLY SYSTEM ANALYST CASE LOAD REPORT” 
SELECT PRIMARY 

USE B:Qdrstats 

SELECT SECONDARY 

USE B:Techcode 

SeCteenie teen 16 BtSortrile 

SELECT SECONDARY 

Use B= Sortfile 

BORE, TO Mentr 


DO WHILE .NOT. EOF .AND. Mentr < 24 


a 





Soone Mentr + 1 TO Mentr 
Mire meolnter/ OoOtalt *£ 100.00 TO Mpe 


@ Mentr, 10 SAY “Total cases processed to date "+; 
“by analyst “+STR¢(Tech,2,0)+": aes 
SMmecoumeen,o, Ot °  ~-+STRICNpe,3,2) +s" 


SKIP 
ENDDO While not EOF and Mentr < 24 


@ Mentr+3, 29 SAY “The analyst case load is: : 


*+orrR«Macli,7;2) 
STORE T TO Continue 


DO WHILE Continue 
Pee ere = T 


Seeeeeel Groat DG yYOuUTwish to continue (CY or Nd?"; 


GET Reply PICTURE “xK" 
READ 
iene ply = “Y" 
SELECT PRIMARY 
DO Menu 
SOS) S 
LOOP 
ENDIF Reply 
Biome 
Bee? 
SET PRINT OFF 
Se VOCCEEN ON 
SET FORMAT TO SCREEN 
ENDIF Crt 
Geto lo) SAY “Do you wish to continue 
GET Reply PICTURE “x” 


READ 

IF !¢Reply) = “Y" 
SELECT PRIMARY 
DO Menu 

EESE 
LOOP 


ENDIF Reply 
ENDDO Continue 


vie 


Xs "Or aN) 2a 








COMPLETE MANAGEMENT REPORT MODULE (MGR. PRG) 


Sebeecr SECONDARY 


USE Be 


SlOne 
S/T Oss 
> PORE 
SORE 
S LORE 
STORE 
Sone 
SORE 
SiGKE 
Ss vOKE 
Sore 
Sees 
STORE 
STORE 
Vee 


Qdrstats 

Process/Total * 1.00 TO Mtat 
Awtg/Tran * 1.00 TO Maapt 
Job/Total * 1.00 TOMitapt 
Response/Counter * 1.00 TO Mimr 
Closeout/Closed * 1.00 TO Mcot 
Time/Counter * 1.00 TO Mtime 
Total - Tran TO@@eMten 

Counter - Closed TO Mtip 

neon, - Counter TO Meso 

Oo 1G Mec 

O TO Manal 
Total/Manal * 
“ "TO Reply 
Lenore crt 

tae Continue 


1700 fOotiacl 


DO WHILE Continue 
ERASE 
ig ke 


SAY “Do you want a printed report “+; 
Or Toren) 28 + GED Reply PICTURE “xX” 
SAY “How many analyst are currently 
*asS2qneq-n |) GET Hanal PICTURE *9” 


io 


@i1id, 10 


READ 


DO CASE 
CASE !¢Reply) = 
ERASE 
SET PRINT ON 
SET SCREEN OFF 
SET FORMAT TO PRINT 
Storms: F TO Crt 
STORE F TO Continue 
Sere > TO Ment 
CASE !¢Reply) = “N* 
STORE F TO Continue 
Su@ke 1 TO Ment 
OTHERWISE 
LOOP 
END@ASE Optieonsak print 


aye 


ERASE 
GG "Ment , 
91423" 


21 SAY "MANAGEMENT REPORT ON CODE 


oe 


Oe 


a? - 
ore aie uF 


| mh a] 


ai 


- 





@ Ment+t2, 21 SAY “#2 AVERAGE PROCESSING 
TIMES ***" 
@ Ment+t3, 3S SAY “The average initial turn 


tLe 
” 


SE OQUMGMEEEMING 11S 6 «© « =s « © © « 
So Cima oy 2? 

@ Ment+4, 3S SAY “The average awaiting process "+; 
GOMER Gets ss « © « «© «2 «  *8 
Sis Chaat, o, 2? 

@ Ment+S, S SAY “The average processing time "+; 
Eat ence « s  « 6 srs 
STR(Mapt,6,2) 

QS Mente, > SAY “The average time awaiting “+r; 
“manager response is. .. “+t; 


SR <Mimr, 6, 2) 

Ge MNent+7, > SAY “The average time to close out “+; 
AMG S@m Scns. ls fs « «6 « « 9 
SrIR(Meot,s, 2) 

@ Ment+9, 3S SAY “The average turn around time “+; 
“of a case from” 

GeiemeslO. > SAY “arrival at FMNSO to final “+: 
SoVOce OuUGmeGckee ss « « « «© « « iets 
STR(Mtines, 6, 2) 


@ Ment+12,21 SAY “### QDR CASES STATUS REPORT 
Hee 
QG@UTrenttiloc, SD SAY “Total number of cases in “+3 
EDEOCces Smee we Wlslict ss <« « S$ 
Sir (CMten;s6,0) 
@ Ment+rld, 3 SAY “Total number of cases "+; 
“transmitted to item manager"r; 


Sr < can. >, 0? 
@ Ment+15, 3S SAY “Total number of cases on ther; 
paki abasen .ieswer is Us a «hs = 6S 


SrIRCTOtal,o, 0?) 

Cenemecw7. SD SAt) Total cases in close in close “+; 
Bonin roOGeSSquteiicits) s, 6 «o « « +8 
Sar CMEl DS, ©) 

G MemerilS, 2D SAY “Total cases closed “+: 

BCs ew tee C eS fe «Ce CU -e 
STR(Closed,6,0) 

G@ MNent-13, 2D SAY “Total number of cases "+, 
“returned from item manager. . . ar 
STR¢«Counter,6,0) 

@ Ment+21, 5 SAY “Total number of cases still “+: 
“out to item manager. .. “+3 
Seen (NSo,S, 00> 


D@ > WHELE Crt 
@ 24, 10 SAY “Do a <Carriage Return> to continue" 
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WALT 
SrORE F TO Crt 
STORE O TO Ment 
ERASE 
ENODe: Crt 
tPameckeply) = “N” 
SoOnreens tO Cre 
ENDIF Reply 


@ Ment+3, 23 SAY “+##2 SUPPLY ANALYST CASE 
LOAD #«#+* 

STORE Nent.*) oo TO Hent 

SELECT PRIMARY 

USE B:Qdrstats 

SELECT SECONDARY 

USE B:Techcode 

SORT ON Tech TO Sortfile 

SELECT SECONDARY 

USE Sorefitie 


IF Grea) 
DO WHILE .NOT. EOF .AND. < 22 
Score enicn. + 1 TO Ment 
STORE Counter/Total * 100.00 TO Mpc 
@ Ment, S SAY “Total cases processed to “+; 
“date by analyst #°+STR¢(Tech,2,0)+; 
wae sto umeCOuUntTer,>G,0)+°° "+; 
Seppe, So, 20>. 
Sir 
ENDDO Not EOF or page overflow 
ENDIF Crt 


@ Ment+2, 10 SAY “The average analyst total "+; 
“case load to date is: "+STR(Macl,7,2) 


TE eeaee- »T 
Soke, 2 TO Nent 
@ 24, 10 SAY “Do a <Carriage Return> to continue" 
WAIT 
ERASE 
ELSe 
SmeRE S TO Nent 
EJECT 
ENDLTP Crt 


@ Ment, 138 SAY "“### CASE LOAD BREAKDOWN BY 
COG ###*" 


SeeeeT SECONDARY 


2D 





Uses. COogcount 


Sena ean Cog TO Sortcog 


SELECT SECONDARY 
USP oor tecog 


SPORE Ment + 3 TO Ment 


ce Cres= T 
DO WHILE .NOT. 
ie Ment < 22 
SLORe Ment 
SeMneme.. «iO 


2K ie 
ELSE 

S1Oneec 10 

@ 24, 


LO (SA 


EOF 


reo Nene 

SAY “Total cases processed to "+; 
Lanewemnror COG “+S¢(COG,1,2)+": “+: 
STR (CCounter,6,0) 


Ment 


"Do a <Carriage Return> to “+; 


Seonei nue 


WAIT 
ERASE 
ENDIF Screen 
ENDDO Not EOF 
ELSE 
DO WHILE .NOT. 
Peeenent << 54 
STORE Ment 
Grnentc, 1.0 


See 

EES 
Sons 2 TO 
SECT 


overflow 


BOE 


erro ent 

SAY “Total cases processed to “+; 
neater tor.cOG ei +> (Coq, 1,2) +" : ree 
Six ccounter, 6,0) 


Ment 


ENDIF Page overflow 


ENDDERNot EOF 
END Teer 
pay come 
STORE 
@ 23, 
g@ 24, 
WAIT 
ERASE 
ECS 
SiGe 
ESE CT 
ENDIF Crt 


HO SAY 
10 SAY 


2 1Omicnt 
"END OF COG REPORT” 
“Do a <Carriage Return> to continue” 


Se reenron t 
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G@ Stent, 15 SAY "### CASE BREAKDOWN BY ITEM 
"Oe 9 
"MANAGER ##+" 


SELECT SECONDARY 

USE B:Imcount 

SORT ON Im TO Sortinm 
SELECT SECONDARY 

USE Soren 

STORE Ment * 3S TOmtent 


Peete = 1. 
POSWHILE NOT. EOF 
1’ Menty< 22 
SrOnreument * 1 TO Went 
G@ Ment, 10 SAY "Total cases processed to "+; 
“date tor "+stIm,1,4)+": vate 
STR (Counter ,6, 0) 
SKIP 
SESE 
Ssa@ne 2 10 Ment 
@ 24, 10 SAY “Do a <Carriage Return> to "+; 
“continue” 
WAIT 
ERASE 
ENDIF Screen overflow 
ENDDO Not EOF 
BSS 
DO WHILE .NOT. EOF 
ieaetent < S34 
seme enent + 1 TO Ment 
@ Ment, 10 SAY “Total cases processed to "+; 
date for "+*S(Im,1,4)+": tee 
STR¢Counter,6,0) 
SKIP 
bese 
Ssraee 5S ° 70 Ment 
EJECT 
ENDIF Page overflow 
ENDDO Not EOF 
ENDitte Crt 


Le oSyGe]) tT 
SyOre.2 TO Ment 
@ 23, 10 SAY "End of item manager report” 
@ 24, 10 SAY "Do a <Carriage Return> to continue” 
WAIT 
ERASE 
EESE 


IT 





Stoke oS TO Ment 
EJECT 
ENDIF Crt 


@ Ment, 10 SAY "The database shows a totai of ":; 
+STR(Cat1,6,0)+" category I QDRs.” 

@ Ment+2, 10 SAY "The database shows a total of "; 
+STR(Cat2,6,0)+" category II QDRs." 

@ Mcnt+6, 10 SAY “There are a total of "+t; 
“STR¢(Cato,6,0)+" cases in thes; 
* database" 

Genenme +7, LOCeSAY that ane not identified as “+; 
“either category [I or II." 


PeoCrt. =.7 
GoZ23a,0 0 SAY “END GF CATEGORY REPORT" 
@ 24, 10 SAY “Do a <Carriage Return> to continue” 
WAIT 
ERASE 
SELECT PRIMARY 
USE B:QDR 
DO Menu 

ELSE 
EJeeT 
SET PRINT OFF 
SET SCREEN ON 
SET FORMAT TO SCREEN 
SELECT PRIMARY 
USE 58:@DR 
DO Menu 

ENDL Cre 

ENDDO Continue 
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APPEND RECORDS TO THE DATABASE (ADDREC. PRG) 


Ser TALK OFF 

USE B:Qdrtemp 

APPEND 

ERASE 

reo De SneUPDALINGeet aoe co FILE, PLEASE STAND "s: 
epye 

USE B:Qdrtemp 

DO CNTR 

SELECT PRIMARY 

Use B:.Odr 

INDEX ON Caseinr TO B:CASES 

APPEND FROM B:Qdrtemp 

Set SCREENGOFF 

SELECT SECONDARY 

USE B:Qdrtemp 

DECETE sALL 

PACK 

SEEBCT PRINARY 

SET SCREEN ON 

RETURN 





DATABASES USED IN VERSION 1.2 


Slauciune POR FILE. B:GDR.DBF 
NUMBER OF RECORDS: OaeZza 2 
DATE OF LAST UPDATE: 01/01/80 
PRIMARY USE DATABASE 


FED NAME TYPE WIDTH DEC 
001 DATE: IN N 004 
002 IN: WORK N 004 
003 CASE:NR C 009 
004 COG C 002 
005 TECHS CODE N 002 
006 ITEM:MGR C 004 
007 CATEGORY C 001 
008g TRANSMIT N 004 
O09 Reo OW i N 004 
O10 CEeSEO0T N 004 
aay TOTAL» * 00039 


Sree lUme OR FILE: Bi QDRTEMP.DBF 
NUM oeR or RECORDS: O0000 

DATE OF LAST UPDATE: 01/01/80 
Pein y eOSes DATABASE 


eb) NAME TYPE WIDTH DEE 
001 DATE: N 004 
002 IN: WORK N 004 
003 CASE SNE C 009 
004 COG Cc 002 
005 MECH: CODE N 002 
006 eet. sG ix C ‘orer: 
007 CATEGORY C 001 
008 TRANSMIT N 004 
Soo RESPONSE N 004 
Ce) CeoOseouT N 004 
OTs FLAG C O01 
se TOTAL #* 00040 
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SRUeluRe POR FILES B:QDRSTATS.DBF 
NETMEERK Gr RECORDS: 00001 

DATE OF LAST UPDATE: 01/01/80 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
O01 TOTAL N O10 
002 AWTG N Oo 
003 JOB N 010 
004 PROCESS N O10 
GOS CATO N O10 
O06 CATI1 N O10 
O07 CAT2 N O10 
008 RESPONSE N O10 
O99 CEesSeau tT N O10 
O10 ee N O10 
On. COUNTER N 010 
2 TRAN N O10 
Os CLOskD N Shale: 
sx TOTAL #** 00131 


SVimucwuREe OR FILES 8: SORTFILE.DBE 
NUMBER OF RECORDS: 00008 
DeGewobewenot UPDATE: 01701780 
Pret: SUSE DATABASE 


AU NAME Peek Poin ere 
001 TECH N 002 
O02 COUNTER N O10 
«* TOTAL **# Oem lS 


Scere ncar@e bIiLE: B:ITMCOUNT.DBFE 
NOMS Ee ReGe Ske COKDS ; QOO rs 

Pato Oomeanot UPDATE: O1/701/80 
PRIMARY USE DATABASE 


ED NAME ieee ewe ODE 
ool EM C 004 
O02 SOUNTER N G10 
xe TOTAL **# O0O0O1S 





SuciURe POR FILE: SB soaeenmeoenprE. DBF 
NUMBER OF RECORDS: 00008 

DATE OF LAST UPDATE: 01/01/80 
PRIMARY USE DATABASE 


FLD NAME TYPE WIDTH DEC 
O01 TECH N 002 
O02 COUNTER N O10 
xx TOTAL #* 00015 





APPENDIX B 


This data dictionary isa divided in to two parts. 
The first part is a definitions section. Each 
variable used in the application program is listed 
alphabetically. Modules that it can be found in are 
listed in parenthesis. A short definition below the 
variable name is given to aid in understanding 
program logic. 

The second section is a listing (by maocdule) of 
equations used in the program to show variable 


computations. 
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SECTION ONE 


AWTG (TAT, MGR, CNTR) 

Total awaiting process time of all QDR’s received 
at FMSO. Thia time is measured in terma of how long 
a QDR waited for a Supply Systerm Analyst to actually 
start working the case up. 


CASELOAD (MENU) 

Name of a module within the application prograr 
that computea the number of cases handled by each 
Supply System Analyst (asa identified by their unique 
tech codes), percentage of total cases handled by the 
analyst and the average number of casea computed asa a 
function of actual number of analyats currently 
assigned divided into the total nuaber of cases on 
the data base. 


CASE:NR (QDRTEMP.DBF, ADDREC, QDREDIT, QDR.DBF) 
Unique number assigned to a QDR case at the tine 
of ita process at FMSO. 


CASES (ADDREC, QDREDIT) 

Teaporary data base file in which the data base 
ig indexed on case number for the purpose of sorting 
er keying on the case nurgber. 


CAT@ (MGR, CNTR, QDREDIT, QDRSTATS.DBF) 

Variable that contains the total nuamaber of QDR 
cases not identified as either Category 1 or 2. This 
nuraber indicatea the total number of records 
contained on the database that are in error in this 
field. 


CAT1 ‘MGR, CNTR, QDREDIT, QDRSTATS.DBF) 
Total number of Category 1 QDR’s presently on the 
database. 


CAT2 (MGR, CNTR, QDREDIT, QDRSTATS.DBF) 
Total number of Category 2 QDR’s presently on the 
database. 


Lod 





CATEGORY (QDRTEMP.DBD, CNTR, QDREDIT, QDR.DBF> 
Name of field in main data base. Field in a one 
digit character that contains either a ’1’ ora ’2’. 


CAWTG (QDREDIT) 

Variable used to corpute the total time a case 
spends awaiting process after arrival at FMSO. This 
variable isa used in the macdule for editing records. 
(See Awtg) 


CCAGEsNR (ODREDIT) 

Variable used to copy the case nurgber of a data 
base record during the record editing process. (See 
Case:nr) 


CCATEGSORY (QDREDIT) 

Variable used to copy the category of a case to a 
temporary variable used in the editing proceas. (See 
Category) 


COLOSED (QDREDIT) 

The total number of days between when an Iter 
Manager responds back to FMSO and when FMSO closes 
out the case. Variable is used in the record editing 
process. 


CCLOSEGUT (QDREDIT) 

Variable used to copy the closeout date fror 
current record to temporary variable used in the 
editing process. (See Closeout) 


CCOS <(QDREDIT> 

Variable used to copy the COG code of a case to a 
temporary variable used in the editing process. (See 
COG) 


CDATE3sIN (QDREDIT) 

Variable used to copy the date a case arrived at 
FMSO to a temporary variable used in the editing 
process. (See Date:in) 
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CITEM:MGR (CQDREDIT) 

Variable used to copy the Item Manager code to a 
temporary variable used in the editing process. (See 
Item:iagr) 


CIN:WORK ‘QDREDIT) 

Variable used to copy the date a case was 
actually started in process by a Supply Systea 
Analyst to a temporary variable used in the editing 
process. (See In:work) 


CJOB ‘QDREDIT) 

Variable used to coapute the total process tine 
it takes a Supply System Analyst to process a case 
and send it to the Item Manager. This variable is 
used in the editing process. (See Job) 


CLOSED ‘MGR, CNTR, QDRSTATS.DBF, TAT) 

Variable containing total nuaber of cases closed 
out. Used in computations to compute averages for 
reports generation. 


CLOSEOUT <MGR, QDRTEMP.DBF, CNTR, QDREDIT, 
QDR.DBF, QDRSTATS.DBF, TAT) 
One of ten fields on main data base. Field 
contains data that the QDR case was actually closed 
out (Disposition instructions having been coapleted). 


COS (MGR, QDRTEMP.DBF, CNTR, QDR.DBF) 

Cognizance Group as identified by the Naval 
Supply Syster. One of ten fields in the rain data 
base file composased of a two digit character. 


COGCOUNT (MGR, CNTR, QDREDIT) 

Name of a data base file used to store the COG 
codes and the number of cases involving particular 
COG’ s. 


CONTINUE “CASELOAD, MGR, TAT) 

DO WHILE loop condition code used to determine 
whether a loop ahould or should not be continued. 
Condition is set to either True or False prior to the 
execution of the loop and reset within the loop in 
order to exit the loop. 
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CNTR CADDREC, MAIN) 

Name of module within the program used to compute 
variable totais and update the QDRSTATS data base 
file. 


COUNTER ‘MGR, CASELOAD, IMCOUNT.DBF, TECHCODE.DBF, 
SORTFILE.DBF, CNTR, QDREDIT, QDRSTATS.DBF, TAT) 
Variable used to total various counts needed for 
other computations. 


CPROCESS ‘QDREDIT) 

Variable used to compute the total time it takes 
@ case to be processed and sent to an [tem Manager. 
This variable is used in the editing process. (See 
Process) 


CRESPONSE <‘QDREDIT) 

Variable used to copy the date at which the case 
is responded to by the Item Manager back to FMSO with 
diaposition instructions. (See Resaponse) 


CRT ‘CASELOAD, MGR, TAT) 

DO WHILE loop condition code used to determine 
whether a loop should or should not be continued. 
The condition is set to either True or False prior to 
the axecution of the loop and reset within the loop 
in order to exit the loop. 


CTECHs CODE <QDREDIT) 

Variable used in the editing proceas to identify 
changes in the unique Supply System Analyst code. 
(See Tech: code) 


CTIME ‘CQDREDIT) 

Variable used in the editing process to compute 
the total days involved in the total turnaround tine 
that it takes to process a case fron beginning to 
closeout. (See Tine) 


CTRANGMIT ‘QDREDIT>) 
Variable used to copy the date at which the case 
iw sent to the Itea Manager. (See Transmit) 
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DATE:IN (CQDRTEMNP.DBF, CNTR, QDREDIT, QDR.DBF) 

Julian date QDR case is received at FMSO for 
processing. Turnaround time is conmnputed from this 
date. 


FLAG CQDRTEMP.DBF) 
Thia isa a field no longer in use and i383 marked 
for exclusion in future versions. 


Im CIMCOUNT.DBF, CNTR, QDREDIT, MGR)? 

A field in the fTIacount data base file used to 
identify the various Item Managers involved in the 
QDR process. 


INCOUNT (MGR, CNTR) 

Data base file used to keep track ot ail Itenm 
Managers and total number of cases processed 
involving a given Item Manager. 


IN:WORK CQDRTEMP.DBF, CNTR, QDREDIT, QDR.DBF) 
Julian date that a Supply Syatea Analyst actually 
atartsa processing the QDR. 


ITEM:MGR CQDRTEMP.DBF, CNTR, QDREDIT, QDR.DBF> 

Data base field used to identify the Item Manager 
of a case. This is one of ten fields to a record 
used in the data base. Field is a character field 
composed of four digits. 


JOB (TAT, QDRSTATS.DBF, CNTR, MGR) 

Variable used to total up all the days required 
to process cases at FMSO prior to being sent to an 
Item Manager. This variable is then divided by the 
total number of cases sent to Item Managers to give 
an average number of days required to actually 
process a case. 


MAAPT (MGR, TAT> 

Menory variable that contains the average 
awaiting process time for cases processed in FMSO. 
(See TAT.PRG in Section Two for actual saethod 
computation.) 
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MACL (MGR, CASELOAD) 

Memory variable that contains the average case 
load based on actual number of analysts assigned to 
the office divided into the total number of records 
on the data base. (See CASELOAD.PRG in Section Two 
for actual method of coaputation.) 


MANAL (CASELOAD, MGR) 

Memory variable read into the program from the 
keyboard asa result of a programmed quarry. Variable 
is the actual number of analysts currently assigned 
to the office. 


MART (MGR, TAT) 

Memory variable containing the average time that 
it takes for a case to be processed and sent to an 
Item Manager. (See TAT.PRG in Section Two for actual 
method of cornputation. ) 


MAWTG (CNTR, QDREDIT) 

Memory variable that contains the total time in 
daya that cases sit in the queue awaiting procesa by 
an analyst. (See CNTR.PRG in Section Two for actual 
method of cornputation. ) 


MCASENR (CQDREDIT) 

Memory variable read from the keyboard as a 
result of a request from the program. This variable 
is the case nuraber that the operator desires to view 
for possible editing. 


MCATS (CNTR) 

Memory variable that contains the total number of 
cases not identified as either category 1 or 2. if 
this variable contains anything but a zero, then 
there are the same number of records in error. 


MCAT1 (CNTR) 
Memory variable that contains the total number of 
category 1 QDR’s. 
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MCAT2 (CNTR) 
Memory variable that contains the total number of 
category 2 QDR’s. 


MCLOSE (CNTR) 
Memory variable that contains the total number of 
cases that have been closed out. 


MCLOSEOQUT (CNTR, QDREDIT) 

Memory variable that contains the total number of 
days that it takes the Supply System Analysts to 
implement disposition insatructions and close cases 
out. Variable is used to conpute averages in reports 
generation. (See CNTR.PRG in Section Two for actual 
method of computation.) 


MONT (MGR) 

Memory variable used as an incremental counter 
for the purpose of determining the line number of the 
next line of print during report generation. 


MCNTR (CASELOAD) 

Memory variable used as an incremental counter 
for the purpose of determining the line nuaber of the 
next line of print during report generation. 


MCOG (CNTR) 

Memory variable that COG code isa placed into for 
comparison as to whether the COG is a new COG or one 
that has been used before. If it is new, then it is 
added to the COG list and the counter ia set to l. 
If it already exists, then the counter is incremented 
by lil. 


MCOT (MGR, TAT) 

Memory variable containing the average time in 
days that it takes analysts to implement disposition 
instructions from Item Managers and close the case 
out. (See TAT.PRG in Section Two for actual rnethod 
of computation.) 


MCOUNT (CNTR) 
Memory variable that contains the total number of 
cases responded to by Item Managers with disposition 


ELC 





instructions. Variable is used to compute averages 
during reports generation. 


NCOUNTER CQDREDIT) 
Memory variable used to keep track of the number 
of times an event occurs. A general counter. 


MENU (MGR, MAIN, TAT, CASELOAD) 

Name of primary module within the program used to 
call modules to either add/edit records or generate 
required reports. 


MFLAG (CNTR, QDREDIT) 

DO WHILE loop condition code used to determine 
whether a loop should or should not be continued. 
Condition is set to either True or False prior to the 
execution of the loop and reset within the loop in 
order to exit. 


MEFLAGI «CQDREDIT) 
See MFLAG above. 


MFPLAGeE <QDREDIT) 
See MFLAG above. 


MIM CCNTR) 

Memory variable that the Iten Manager code is 
placed into for conparison as to whether the Iter 
Manager code is a new code or one that has been used 
before. If it isa new, then it is added to the Iter 
Manager list and the counter is set to 1. If it 
already exists, then the counter is incremented by 1. 


MIMR “MGR, TAT) 

Memory variable containing the average number of 
days that it takes an Item Manager to respond back to 
FNSO with actual disposition instructions. (See 
TAT.PRG in Section Two for actual method of 
conputation. ) 


MJOB (CNTR, QDREDIT) 
Memory variable that contains the total nuaraber of 
days that it took to actually process cases prior to 
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sending them out to the Item Managers. (See CNTR.PRG 
in Section Two for actual mathod of computation.) 


MPC (MGR, CASELOAD) 

Memory variable used to store percentages of 
cases handled by a given Supply System Analyst. 
Percentage is coaputed by dividing the total nuamaber 
eof cases processed through FMSO into the nuraber of 
cases handled by the analyst. 


MPROCESS ‘CNTR, QDREDIT) 

Memory variable used to store the total number of 
days that it takes a case to be processed frora 
arrival at FMSO to being sent to the Item Manager. 
This variable is used in the initial turnaround tire 
computations in reports generation. (See CNTR.PRG in 
Section Two for actual method of computation.) 


MRESPONSE (CNTR, QDREDIT) 

Memory variable that contains the total number of 
days that it takes Item Managers to respond back to 
FMSO with disposition instructions. This variable is 
used to coapute an average response time during 
reports generation. (See CNTR.PRG in Section Two for 
actual method of computation.) 


MSO (MGR) 

Memory variable that contains the total number of 
cases still being processed by Item Managers. (See 
MGR.PRG in Section Two for actual method of 
computation.) 


MTAT (MGR, TAT) 

Memory variable containingthe average turnaround 
time from arrival to sending a case to the Iter 
Manager. (See TAT.PRG in Section Two for actual 
method of computation.) 


MTECH (CNTR) 

Memory variable that Tech:code is placed into for 
comparison asto whether the tech code is a new code 
or one that has been used before. If it i3 a new 
code, then it is added the list of codes and the 
counter is set to 1. If it already exists on the 
data base, then the counter is incremented by 1. 
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MTIME (MGR, CNTR, QDREDIT, TAT) 

Memory variable that contains the total number of 
days thatit has taken to process all cases from 
arrival in FMSO to the final close out of thecase. 
This variable is used to coapute their average 
overall turnaround time to proces a case fror 
beginning to. end. (See CNTR.PRG in Section Two for 
actual method of computation.) 


MTIP (MGR) 

Memory variable containing the total number of 
cases being closed out by the analysts. (See MGR.PRG 
in Section Two for actual method of computation.) 


MTOH (MGR) 

Memory variable that contains the total number of 
cases in the office being processed the analysts less 
the cases in the queue awaiting an analyst to be 
available to handle ther. (See MGR.PRG in Section 
Two for the actual method of coauputation.) 


MTOTAL (CNTR) 

Memory variable that contains the total number of 
cases being processed by the count module. This 
total is then added to the overall total number of 
cases on the data base kept in the statistica data 
base file (QDRSTATA.DBF). 


MTRAN (CNTR) 

Memory variable that contains the total number of 
cases that have been sent to an Item Manager. This 
total is computed based on the cases being processed 
by the count module. This total ia then added to the 
overall total number sent to Iter Managers kept in 
the statistics data base file (QDRSTATS.DBF). 


MWORK (CNTR) 
Memory variable used as a scratch pad during 
various coaputations. 
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P.CATEGORY (‘QDREDIT> 

See CATEGORY. °“P.’ identifiea the variable as 
belonging to the primary data base file when two 
files are at the same time. See the command SELECT 
in the dBase If manual for a more coaplete 
explanation. 


P.CLOSEOQUT ‘QDREDIT) 
See CLOSEOUT. See P.CATEGORY above. 


P.COG (QDREDIT) 
See COG. See P.CATEGORY above. 


P. ITEM:MGR (CQDREDIT) 
See ITEM:MGR. See P.CATEGORY above. 


P. RESPONSE (QDREDIT) 
See RESPONSE. See P.CATEGORY above. 


PROCESS (MGR, CNTR, QDRSTATS.DBF, TAT) 

Total nuamaber of days needed to process a case 
from arrival at FMSO to being sent to an Iter 
Manager. This total is used in computation during 
reports generation to produce the initial turnaround 
time. (See GDRSTATS.DBF in Section Two for actual 
method of computation.) 


P. TECHCODE (QDREDIT> 
See TECHCODE. See P.CATEGORY above. 


P. TRANSMIT ‘QDREDIT) 
See TRANSMIT. See P.CATEGORY above. 


QDR (MAIN, GDREDIT, ADDREC) 

Main data base. Contains all cases processed by 
FMSO. Each case is entered on to a ten field record 
and maintained on line. 


QDRSTATS ‘CASELOAD, QDREDIT, TAT, MGR) 

Name of a data base file used to store total 
counts of various aspects of the data on cases for 
management reports generation. 
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QDRTEMP (CADDREC) 

Name of a data base file used to store new 
records prior to their addition to the main data 
base. 


REPLY (MGR, CASELOAD, TAT) 
Input variable name used to identify keyboard 
responses at various points in the program process. 


RESPONSE «MGR, OQDRTEMP.DBF, CNTR, QDREDIT, QDR.DBF, 
QDRSTATS.DBF, TAT) 
Julian data a case is received back from an Item 
Manager with disposition instruction (See QDR.DBF for 
make up of field). 


$.COS (QDREDIT) 

See COG. “S.”’ is used to identify a variable in 
the secondary data base file that is open at the sane 
time as a primary data base file. See the SELECT 
cornmand in the dBase II manual for a complete 
explanation. 


SORTCOG ‘MGR) 
Sorts COG codes and arranges them in ascending 
alphabetical order. 


SORTFILE (MGR, CASELOAD) 

Temporary data base file used to keep track of 
the Supply System Analyst codes and the total cases 
handled by each analyst. 


SORTIM (MGR) 
Sorts Item Manager codes and arranges them in 
ascending alphbetical order. 


S.ITEM:MGR (CODREDIT) 
See ITEM:MGR. See S.COG above. 
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TECH ‘CASELOAD, MGR, TECHCODE.DBF, SORTFILE.DBF, 
QDREDIT) 
A field containing the Tech:code arranged in 
ascending numeric order. 


TECHCODE <‘CNTR, CASELOAD, MGR, QDREDIT) 

Name of data base file used to maintain a listing 
of Supply System Analyst codes and the total number 
of cases handled by each analyst. 


TECHsSCODE <«CNTR, QDREDIT, QDRTEMP.DBF>) 
Unique two digit code used to identify the Supply 
System Analyst who is or has worked up a given case. 


TIME (CNTR, TAT, MGR) 

The total time of process from date in to close 
cut of a case. Used to compute average turnaround 
time of a case from initial receipt at FMSO to the 
time that FMSO closes the case out and places it in a 
history file. 


TRAN (MGR, CNTR, QDREDIT, QDRSTATS, TAT) 

Variable containing total number of cases sent to 
Item Managers by FMSO. Used to compute averages in 
computations for reports generation. 


TRANSMIT (QDRTEMP.DBF, CNTR, QDREDIT, QDR.DBF) 
Julian date a case is sent from FMSO to the Iter 
Manager for further processing. 


TOTAL (MGR, CASELOAD, CNTR, QDRSTATS, TAT) 
Variable containing the total number of cases in 


the data base. This variable is used to compute 
various averages in computations for reports 
generation. 


116 





X <MAIN)D 

Variable used to create a pause within a program 
which allows the operator to read messages on the 
screen (CRT) prior to continuation of the progran 
execution. In this manner, the operator need not 
make any keyboard response inorder to continue. 





CASELOAD. PRB 


SECTION TWO 


TOTAL/MANAL # 1.00 = MACL 
COUNTER/TOTAL # 100.00 3 MPC 


MGR. PRG 


PROCESS/TOTAL * 1.00 = MTAT 
AWTG/TRAN #* 1.00 = MAAPT 
JOB/TOTAL * 1.00 = MAPT 
RESPONSE/COUNTER = 1.00 2 MINMNR 
CLOSEOUT/CLOSED #* 1.00 = MCOT 
TIME/COUNTER * 1.00 = MTIME 
TOTAL - TRAN = MTOH 

COUNTER - CLOSED = MTIP 

TRAN - COUNTER = MSO 
TOTAL/MANAL * 1.00 = MACL 
COUNTER/TOTAL * 100.00 = MPC 


TAT. PRE 


PROCESS/TOTAL * 1.00 = MTAT 
AWTG/TRAN * 1.00 = MAAPT 
JOB/TOTAL #* 1.00 = MAPT 
RESPONSE/COUNTER * 1.00 = MIMR 
CLOSEOUT/CLOSED * 1.00 = MCOT 
TIME/COUNTER * 1.00 = MTIME 


CNTR. PRG 


MTOTAL + 1 = MTOTAL 


IN: WORK 

CATEGORY 
TRANSNIT 
TRANSMIT 
RESPONSE 
CLOSEOUT 
CLOSEOUT 


- DATE: IN = MAWTG 


OF, 1, ° CR 2 

IN: WORK = MJOB 

DATE: IN = MPROCESS 
TRANSMIT = MRESPONSE 
RESPONSE = MCLOSEOUT 
DATE: IN = MTIME 


1S 





a - an 


Mp ane 


QDRSTATS. DBF 


TOTAL = MTOTAL + TOTAL 

AWTG = MAWTG + AWTG 

JOB = MJOB + JOB 

PROCESS = MPROCESS + PROCESS 
CATO = MCATO + CATO 

CAT1 = MCAT1 + CAT1 

CAT2 = MCAT2 + CAT2 

RESPONSE = MRESPONSE + RESPONSE 
CLOSEOUT = MCLOSEOUT + CLOSEOUT 
TINE “=~ NTE + TIME 

COUNTER = MCOUNT + COUNTER 

TRAN = MTRAN + TRAN 

CLOSED = MCLOSE + CLOSED 


GDREDIT. PRB 


DATES IN = CDATE:IN 

IN:;WORK = CIN: WORK 

CASE:NR = CCASE:NR 

COG = CCOG 

TECH:CODE = CTECH:CODE 

ITEM:MGR = CITEM: MGR 

CATEGORY = CCATEGORY 

TRANSMIT = CTRANSMIT 

RESPONSE = CRESPONSE 

CLOSEOUT = CCLOSEOUT 

AWTG = AWTG + MAWTG - CAWTG 

JOB = JOB + MJOB - CJOB 

PROCESS = PROCESS + MPROCESS - CPROCESS 
RESPONSE = RESPONSE + MRESPONSE - CRESPONSE 
CLOSEOUT = CLOSEOUT + MCLOSEOUT - CCLOSEOUT 
tae = TINE + MTIMNE - CTIME 


eS, 






Ai ! he Lee. 
Prana | © 
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SORTF ILE. DBF 


TECH = MTECH + TECH:CODE 
COUNTER = COUNTER + 12 


IMCOUNT. DBF 


IM = (See IM in Section One. ) 
COUNTER = COUNTER + 1 


TECHCODE. DBF 


TECH = (See TECH in Section One.) 
COUNTER = COUNTER + 1 


Teo 
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